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1.  INTRODUCTION 

Volume  1  of  this  report  carries  a  full  description  of  the  complete 
program  but  omits  mathematical  details  of  the  model  developed  to 
predict  the  nitric  oxide  (NOx)  emissions  from  aircraft  gas  turbine 
combustors  and  also  the  details  of  two  computer  programs  developed 
as  part  of  the  study  for  obtaining  predictions  from  the  model.  It 
is  the  purpose  of  Volumes  2  and  3  of  the  report  to  present  full 
descriptions  of  both  the  model  and  the  computer  programs. 

»  it  is  convenient  to  consider  the  model  in  two  parts,  one  part 

being  concerned  with  the  NOx  formation  process  and  the  other  with 
modeling  the  flow  behavior  within  gas  turbine  combustors.  The 
convenience  arises  not  only  due  to  the  basic  difference  i»\  the  studies 
of  these  two  parts,  but  also  due  to  the  fact  that  a  separate  compu¬ 
ter  program  has  been  developed  for  each  part.  This  approach  has  been 
adopted  in  the  interests  of  economy  of  computation  as  calculation  of 
the  *..*icessary  data  for  the  determination  of  the  NOx  formation  orocess 
requires  appreciable  computer  time  but  the  data  once  collected  can, 
of  course,  be  applied  to  any  combustion  calculation  with  the  same 
reference  conditions  (in  this  case,  combustor  inlet  conditions)  of 
pressure  and  temperature.  The  computer  program  developed  for  this 
task  has  the  name  NOXRAT,  and  its  function  is  to  compute  the  rate 
terns  of  the  NGx  formation  process  and  all  relevant  thermodynamic  data 
for  a  series  of  fuel-to-air  ratios  with  a  common  reference  state. 

Volume  2  of  this  report  is  solely  concerned  with  the  nitric 
oxide  formation  process,  it  presents  a  mathematical  description  of 
the  program  NOXRAT  and  also  includes  a  section  which  is  essentially 
a  user's  manual  for  the  program.  Volume  3  produces  the  same  details 
for  the  flow  model  developed  to  describe  the  flaw  conditions  in  3 
f  gas  turbine  combustor.  The  cor res ponding  computer  program  is  named 

GhShGX  and  it  is  so  arranged  that  the  rate  terms  and  ail  relevant 
thermodynamic  data  computed  in  NOXRAT  are  punched  onto  a  deck  of  com¬ 
puter  cards  which  serves  as  inpuc  data  to  the  main  program  6ASN0X. 

The  objective  of  this  volume  of  the  report,  therefore,  is  to 
present  the  theory  behind  the  flew  model  and  details  of  the  computer 
program  developed  for  its  application. 
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THE  FLOW  MODEL 


Calculations  based  upon  the  reaction  scheme  described  in  Volume 
2  clearly  show  that  for  significant  concentrations  of  nitric  oxi-ie 
to  be  formed  during  the  short  time  it  takes  the  gases  tc  pass  through. 
<>*  aircraft  gas  turbine  engine,  the  temperature  must  exceed  2000  deg 
K.  Such  high  temperatures  only  exist  within  the  combustor,,  and  only 
the;-  for  a  limited  time,  so  clearly,  nitr:c  oxide  concentrations  in 
the  exhausts  of  aircraft  engines  are  solely  dependent  upin  the  Row 
behavior  and  tnt  chemical  processes  occurring  within  the  combustion 
chamber  and  it  i'  these  features  that  must  be  adequately  represented 
in  the  model . 

The  first  task,  therefore,  is  to  select  £  method  of  modeling  the 
flow  processes  in  the  gas  turbine  combustor.  Such  combustors  are 
conventionally  divided  into  three  zones  as  shown  in  Figure  la.  The 
distinction  between  these  zones  is  discussed  qualitatively  in  yolume 
1,  Section  3,  but  in  the  next  section  these  distinctions  are  ouantified. 
Firstly,  the  basic  conservation  equations  are  derived  for  the  general¬ 
ised  case  of  an  inhomogeneous,  reacting  gas  mixture  of  the  type  thsr 
occurs  in  a  gas  turbine  combustor.  These  equations  are  then  reduced 
to  conditions  applicable  to  the  three  combustor  zones,  the  primary, 
intermediate  and  dilution  zones,  which  are  of  interest  to  this  study, 
and  finally,  they  are  used  to  demonstrate  how  the  nitric  oxide  levels 
may  be  calculated  for  each  zone. 


2.1  the  GENERALIZED  CONSERVATION  EQUViONS 

A  control  volume  will  be  considered  to  contain  products  of  con¬ 
stant  fuel-to-total  mass  ratio,  f  ,  which  will  be  termed  the  mixture 
ratio.  (The  constancy  of  F  is  taken  as  it  has  particular  utility  in 
this  study  insofar  as  that  it  minimizes  the  number  of  calculations  Tor 
the  equilibrium  conditions  necessary  to  determine  local  nitric  oxide 
reaction  rates.)  The  volume  is  as  snown  below: 
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where. 


£tA  =  macs  flow  in  interval  8F  about  F 
tfc^J58  mass  frccticn  of  nitric  oxide 
£  *  fractional  mass  flew  of  unburned  fuel 

££/  »  mass  flow  per  unit  length  of  fuel  ratio  F  ,  with  .uass 

fraction  of  NO  =»  [NO]  which  enters  the  volume  due  to  mixing 
Sn1"  suss  flow  per  unit  length,  with  mass  fraction  of  NO  «  O5^ 
which  Ix^oves  the  volume  due  to  mixing 
Sft  =  crcr»s  sectional  area  of  element 

jf  «  rate  of  formation  of  NO  per  unit  volume  by  chemical  reaction 


The  carservatn 

on  equations  become, 

for  NQ, 

£xM4 

f&A  +  Srn  **" 

»(W 

A-l 

mass.. 

' 

S*'- 

A- 2 

burned  f uel , 

F^CSrn)  - 

F  “  cfA  F 

4(e-W 

A- 3 

unb.iraed  fuel , 

~  a 

dx  O-  y 

m 

R 

-  specified 

A-4 

Jn  the 

limit  as  attends 

to  zero,  these  equath 

ons  take  the  form. 

■ 

r#^'f 

-[NO]'#* 

A-l. 
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r  d  id m\ 

hdx  UfJ 

i  44dA 

dx  ^  3f/ 


dm  _ 

il  *1 

p  dm 

—  A 

A-3a 

dP 

r  dF 

dx 

L  d?J 

♦ 

R 

A-4a 

2.2  THE  DISTRIBUTION  FUNCTION 

The  control  volume  considered  above  is  only  concerned  with  an 
elen^nt  of  mass  Sn  with  a  mixture  ratio  SP  abcut  F  •  It  was  proposed  to 
represent  the  distribution  of  mass  about  mixture  r3tio  by  a  normal  distri¬ 
bution  function  of  the  form, 


The  parameter  $  ,  in  statistical  terms,  is  called  the  standard  deviat:on  end 
represents  the  degree  of  distribution  of  F  about  the  mean  value  F . 

C  is  termed  the  normalizing  factor  and  for  the  purpose  of  this  study 
is  defined  by  the  expression  that, 

—  m(i  -  £)  A- 6 

4  SF 

The  value  of  F  is  the  ratio  of  the  total  fuel  burned  to  the  total  mass  flow. 
Clearly  both  C-  and  F  will  be  a  function  of  the  axial  position  in  the  combustor 
as  they  are  computed  from  Equations  A-2  and  A-3- 

A  normal  distribution  has  been  selected  as  it  is  known  to  fit  tne 
soray  characteristics  of  the  type  of  fuel  injectors  used  in  gas  turbine  com¬ 
bustors  and  it  provides  a  convenient  way  of  describing  the  mixing  process,  by 
specification  of  the  relationship  iT  “  (T’(x).  The  value  of  the  mass  flew 

in  interval  5>F  about  F\,  can  also  be  evaluated  functionally  by  the  equation  f  pm, 

=  )  ^  A_7 

JFi-S^a 
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and  so  the  whole  flow  field  can  be  readily  represented  by  a  series  of  discrete 

A 

elements  of  constant,  but  different,  mixture  ratios." 


2.3  APPLICATION  TO  THE  PRIMARY  ZONE 

The  model  of  the  flow  behavior  described  previously  assumes  that 
'  no  mixing  takes  place  in  the  primary  zone  after  che  specified  distribution 

of  mass  mixtures  ratios  is  attained.  Thus,  referring  to  the  control  volume 


above , 


•  O 


and  furthei ,  it  is  also  assumed  that  only  a  certain  fraction  of  the  total 
fuel  entering  the  zone  is  burned  a-d  that  this  fraction  burns  instantaneously. 

i  (£  =  0 

so  equation  (A-J)  reduces  to. 


or, 

or  alternatively. 


S  m 

rt  . 


A-8 

A-9 

A-10 


Hr  e  i  f  dfc 

where  P  is  the  density  of  the  e’em^nt  and  "t  is  the  time  it  takes  to  pass 

* 

through  the  primary  zone.  It  is  taken  that  p  =»  p  ,  the  mean  density  ir. 
primary  zone  where, 

P  »  4-  ( 

<  S>F 


A-11 


The  nature  oi  the  normal  distribution  .'unction  is  that  f(F)dF  only  tends 
to  zero  as  F  tends  toioo  .  Negative  F$  have  no  physical  ^significance 
so  a  constraint  is  imposed  upon  the  function  jtha"  0<  F < IF  thus  pre¬ 
serving  the  useful  feature  of  symmetry  about  F.  ,i  fact,  if  C*  is  less 
than <7^,  this  constraint  modifies  the  function  to  only  a  very  small 
extent  as  it  car.  be  shown  that  the  integral  is  greater  than  99*7  per  _ 
cent  of  «.hat  over  the  range  £  o®  .  Practically,  a  range  of  $"from  0  toF/j 
will  represent  a  wide  range  in  distribution  charactsr istics.  It  should 
also  be  noted  that  c  andmare  simply  related. by  the  equation  C , 
If  the  limits  are  expressed  from,  too  . 
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but  the  value  of b  cannot  be  so  simply  expressed  for  the  case  of  a 
completely-stirred  reactor.  Theoretical  considerations  dictate 
(see  Ref  1)  that  various  fractions  of  the  mass  flow&fn  have  differ¬ 
ent  residence  times  according  to  the  function. 


Fit)  *-4-  ®*p(r 

I 


A- 12 


where  *r 

(Vp?/A) 


is  the  mean  residence  time  and  is  equal  to  the  ratio  of 
and  where  Vp  is  the  volume  of  the  primary  zone.  The 


relationship. 


S-U)  *  F(i)db  =  Je^t>(-tAr)d£ 


A- 13 


then  defines  a  fraction  r^.  of  bfh  which  has  a  residence  time 
within  the  range  db  about  "C  .  It  is  therefore  necessary  to  solve 
Equations  A- 10  and  A- 13  to  compute  a  series  of  values  corre¬ 
sponding  to  the  QlQlt  concentrations  over  the  range  of  -fc  from 
zero  to  infinity.  The  mean  nitric  oxide  concentration  at  the  exit 
of  the  zone  for  an  element  of  mixture  ratio  F  ,  QJ0|-  ,  is  then 

calculated  from. 


and  the  process  repeated  for  all  elements  over  the  mixture  range  of 
interest. 

Finally,  an  over-all  mass  mean  average  nitric  oxide  concentra¬ 
tion  for  all  products  leavino  the  primary  zone  can  then  be  computed 
by  summing  all  products  {noJ-^^to  and  dividing  by  the  total  mass 
flow  rate  through  the  primary  zone. 


l.k  APPLICATION  TO  THE  INTERMEDIATE  ZONE 

in  the  intermediate  zone,  mixing  is  assumed  to  occur  over  the 
length  of  the  zone  j_  ,  such  that  at  the  exit  it  is  uniformly  mixed. 
We  postulate  that  mixing  is  characterized  by  the  expression. 
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V-  )N] 


A- 15 


where  is  the  prescribed  deviation  for  the  primary  zone,  Aj  is  a 
model  constant  and  Xj  is  the  axial  distance  from  the  primary  zone 
exit.  The  distribution  of  the  mixture  ratio  F  is  therefore  known 
at  every  point,  i.e. ,  Sm-  ?(F,  x)  Sx  is  prescribed  by 

Equations  A-5,  A-6,  and  A-15*  The  problem  therefore  reduces  to 
determining  “ben"  ,  and  F  from  Equations  A-2  and  A -k  and  to 

making  certain  assumptions  about  the  mixing  process,  as  t.NOj''  and 
CN(0*  must  be  determined  in  order  that  Equation  A-l  can  be 
solved  for  (NO)  as  a  function  of  F  and  X  . 

We  will  postulate  that  ail  mixing  occurs  at  conditions  corre¬ 
sponding  to  entry  conditions  into  the  control  volume  so, 

Lnc.]'  =  £Kiq} 

[Ff  -  F 

and  also  that,  =  KSin  A-16 

which  is  to  say  that  the  flow  out  of  the  elemental  control  volume, 
due  to  mixing,  is  proportional  to  the  amount  flowing  into  the  control 
volume.  Clearly  V(  must  have  units  of  1 /length  and  the  physical 
interpretation  of  K  can  best  be  thought  of  in  terms  of  the  ratio, 

,of  the  mass  flow  rate  leaving  the  element  over  the  length  of 
the  intermediate  zone  to  the  mass  flow  rate  within  the  element.  If 
this  latter  mass  flow  rate  is  constant,  then  clearly 

fo  *  =*  Cfo  SfO 


or. 


K  -  CW//xL 


It  will  be  assumed  that  the  value  of  K  is  known.  Equation  A-2  then 
yields, 

%<h'  =  + 

where  it  is  to  be  noted  that  the  restrictions. 


A- 17 


8 


K>o 

K  -  R)| 


max 


A- 18 


must  be  satisfied  for  the,  model  to  be  valid. 

The  gases  flowing  into  the  control  volume  as  a  result  of  mixing, 
will  originate  from  two  sources:  firstly,  from  the  mixing  of 
gases  already  within  the  combustor  liner,  which  we  will  denote  as 
Sftrtand  secondly  by  the  mixing  action  of  the  diluent  air  with 

— *  u 

previously  mixed  gases,  which  we  will  call  .  Clearly, 

A- 19 

and  we  will  postulate  that. 


% 


•a 


ro 


A- 20 


that  is,  that  the  amount  of  diluent  air  entering  the  control  volume 
is  in  proportion  to  the  total  mass  flow  rate  in  the  volume.  The 
problem  is  then  defined  in  terms  of  ,  and  p*  as. 


~  **■  KSstO  -  Sl 


m 


VTl/j 


A-21 


'3x'-  m 

from  Equations  A- 17,  A-19,  and  A- 20,  and  also  as  a  consequence  of 
Equation  A-3-  £_  ( *,*  *  *  )  -  4, 

F  -  a'  \  ^  V  Sro/  a-22 

The  value  of  [NO]  must  now  be  calculated.  Clearly,  the  total 
nitric  oxide  mass  which  leaves  all  the  elements  by  mixing  must  also 
return  via  the  mixing  process  to  preserve  conservation  of  the  specie. 
The  following  relationship  is  assumed  to  apply,  therefore,  that 


[nd'j  =  ;£  (  % !v>  "*  LNcJ") 


A-23 


The  value  of  R  ,  the  rate  of  burning  of  the  unburned  fuel  which 
leaves  the  primary  zone  (see  Equation  A-A) ,  is  now  all  that  is  neces¬ 
sary  to  calculate  NO  concentrations  throughout  the  intermediate  zone. 
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It  is  postulated  that  this  rate  of  burning  is  controlled  by  the 
mixing  process,  so  in  keeping  with  the  Equation  A-15,  the  following 
is  assumed, 

\M 


£  *■  £0  (  I  —  A3  C^x/l)  ) 


A-24 


where  A*  and  A,  are  model  constants,  €0  is  the  fractional  mass  of 
^  5  * 

unburned  fuel  entering  the  intermediate  zone  and  is  given  by  , 

0-3)  A-25 

« 

R  may  therefore  be  computed,  as  by  definition  (see  Equation  A-4), 

it  is  equal  to  fj  (  .  Thus  the  problem  is  defined  as, 

ox 

is  known  from  Equations  A-19  and  A-21 
is  known  from  Equation  A- 16 
is  known  from  Equation  A-23 
7 1  is  equal  to  [NO] 

ion 


Sir/ 

r>n  * 
?5it» 

[NO]7 

[NOJ 


and  -  ^OvO^F,  is  given  by  the  specified  distribute 

function. 

If  these  values  are  substituted  into  the  conservation  equation 

for  nitric  oxide  (Equation  A-2)  then  it  can  be  shown  that, 

TM-dK  ~+eix 

tNOUdx  -LNOl*  =  ^JLcix  - 

x  * 


SriHQ^m 

*  \(C6NQi*£rNo'])<^. . 


A-26 


r 

S'tn 


where  V  is  the  velocity  and, 

I>N<3  =  (_  LUG]'  ~  [NOjx)  A- 27 

This  equation  has  to  be  evaluated  in  a  stepwise  mamer  in  order  to 
calculate  the  relationship  [NOj  =  £(p, in  the  intermediate 
zone.  It  is  then  a  simple  matter  to  compute  an  over-all  mass  average 
nitric  oxide  concentration  at  each  axial  station  from. 


Anotner  way  to  express  these  relationships  is  as: 

~  y0  ( 1  -  A3  lxx /l)^) 
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1 olx-~!£.  DJ^pw^tn 

m  f=<3  ' 


and  so  complete  the  computation. 


2.5  APPLICATION  TO  THE  DILUTION  ZONE 

In  the  dilution  zone  all  gases  are  assumed  to  perfectly  mix  to 
a  mean  mixture  ratio.  All  fuel  is  assumed  to  have  been  burned 
previously  in  the  combustor  and  only  diluent  air  enters  the  zone. 
For  this  case  therefore,  one  cannot  consider  a  control  volume  of 
constant  mixture  ratio  p  ,  as  was  done  at  the  introduction  to  this 
section,  asp  must  change  with  axial  distance  due  to  the  added  air 
flow.  For  the  special  case  of  the  assumpt 3 ons  made  above,  this 
change  may  be  accounted  for  by  modifying  only  Equation  At  3  of  the 
conservation  equations  so  that  this  dependency  of  F  with  X  is 
properly  accounted  for. 

The  conservation  Equations  A-l  through  A-4,  can  be  shown  to  be 
given  by,  A 


1  M 


-  o 


=  o 


as  the  above  assumptions  imply  that, 
and, 

QvJqJ7  -  y'  ~  R  »  ‘bfn  v-  o 

The  conservation  equation  for  nitric,  oxide  can  be  reduced  to  the  form, 

P«iF 


DoqI> 


/  ¥  war 


which  predicts  directly,  the  mean  average  nitric  oxide  concentration 
at  the  new  axial  position.  This  process  can  be  repeated  in  a  step¬ 
wise  manner  tc  the  end  of  the  combustion  chamber  and  hence  the  nitric 
oxide  concentration  at  the  exit  plane  may  be  predicted. 
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2.6  COMPUTATIONAL  PROCEDURE 

A  summary  is  presented  below  of  the  computational  procedure 
necessary  to  combine  the  flow  model  and  the  chemical  reaction  scheme 
presented  in  Volume  2  in  order  to  predict  nitric  oxk'«  emissions  from 
aircraft  turbine  engines. 

2.6.1  Required  Inout 

The  following  input  «s  required  in  order  for  the  computation 
to  proceed: 

a>  Chemical  Reaction  Scheme 

1.  A  means  of  evaluating  the  adiabatic  flame  temperature, 
density  and  composition  of  the  equilibrium  products  for 
the  combustion  of  hydrocarbons  in  air.  Program  NOXRAT 
described  in  Volume  2  serves  the  purpose. 

2.  Values  of  the  rate  constant-  V., to  ^  • 

.  Fuel  properties  in  terms  ofC'.H  ratio. 

b«  Combustor  Dimensions 

These  should  be  expressed  in  such  a  way  as  to  allow  calculation 
of, 

1.  Volume  of  the  primary  zone. 

2.  Area  of  the  intermediate  and  dilution  zones  as  a 
function  of  distance^. 

c  Combustor  Operating  Conditions 

The  following  should  be  expressed  as  a  function  of  aircraft 
operating  mode, 

1  .  Combustor  inlet  temperature  and  pressure. 

2.  Total  fuel  flow  rate- 

3-  Air-flow  conditions  in  terms  of  the  fraction  entering 

the  primary  zone  and  the  rate  of  addition  at  the  walls  as 
as  it  varies  with  axial  position  along  the  combustor, 
d.  Other  Inputs  to  be  Specified 
]  .  The  functions, 

<r(x)  (see  Equation  A  15) 

and,  6-  (see  Equation  A- 24) 
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2.  The  value  of  K,  ,  or  Cpj  ,  which  defines  the  fraction 
of  gases  that  leave  an  element  of  constant  mixture 
ratio  p  due  to  mixing  (see  Equation  A- 16} 

2.6.2  Preliminary  Calculations 

Two  preliminary  calculations  must  be  performed  before  the  compu¬ 
tation  of  NO  concentration  levels  can  be  undertaken. 

These  involve, 

a.  The  determination  of  a  value  for  ^  ,  the  fraction  of  total 

fuel  entering  the  primary  zone  that  is  burned  in  the  zone. 

b.  A  consideration  of  the  mixing  characteristics  of  the  cool¬ 
ing  air  that  enters  the  combustor  liner  from  the  walls  of 
the  intermediate  an'd  dilution  zones.  The  bulk  of  such  flow 
normally  enters  perpendicular  to  the  direction  of  the  main¬ 
stream  product  flow  and  has  then  to  be  deflected  and  en¬ 
trained  before  it  can  enter  the  fully  developed  mixing 
processes.  This  action  must  require  a  finite  time  (i.e. , 
distance)  to  occur,  and  its  effect  upon  the  nitric  oxide 
formation  process  :tas  to  be  considered. 


Combustion  Efficiency 

A  correlation  does  exist  to  relate  primary  zone  combustor  effi- 

2 

ciency  to  the  fuel  loading  parameter  m^/V^P  .  The  correlation  is 
given  in  Reference  2  and  is  reproduced  in  Figure  2.  There  is  sig¬ 
nificant  scatter  in  the  data  points  used  to  obtain  the  correlation 
and  the -values  of  the  primary  zone  efficiency  determined  using  the 
correlation  can  be  expected  to  have  error  limits  of  approximately 
+  20  per  cent  of  the  indicated  value. 


Air  Distribution  Characteristics 

in  the  calculation  of  the  rate  of  diluent  air  addition  to  the 
intermediate  and  dilution  zones,  some  provision  must  be  made  for  the 
time  (hence  distance)  necessary  for  the  dilution  gases  to  mix  into 
the  mainstream  flow.  This  mixing  lag  could  conceivably  affect  NO 
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emissions  significantly  under  certain  circumstances  as  it  controls 
the  rate  of  temperature  change  at  positions  downstream  of  the  primary 
zone  exit.  A  simple  method  was  developed  to  take  some  account  of  this 
effect  and  is  described  fully  in  Appendix  XVI.  The  method  is  con¬ 
sistent  with  the  mixing  assumptions  used  to  develop  the  model  for  the 
intermediate  zone  of  the  combustor  and  at  the  same  time,  it  determines 
the  fraction  of  the  air  that  enters  the  primary  zone. 

2.6.3  Prediction  Procedure 

In  the  interests  of  economy  of  use  of  Program  N0XRA7  which  de¬ 
termines  the  flame  temperatures  and  concentrations  of  the  C-H-O-N 
species  at  equilibrium  conditions,  hence  the  NO  formation  rates,  the 
distribution  function  of  mixture  ratio  F  ,  versus  mass  fraction 
(Equation  A-5),  is  considered  as  a  series  of  elements  of  differing 
.  The  first  task  in  each  step  is  to  calculate  the  mass  fraction 
in  each  element  from  the  equation, 

am,  \  Sr}/sf  aF 

for  the  prescribed  conditions  and  thus  relate  to  F  . 

The  increments  are  selected,  then  the  adiabatic  flame  tem¬ 

peratures  T  ,  the  density  ^  and  the  corresponding  equilibrium  con¬ 
centrations  of  the  species  N,  N20,  NO,  C^,  0,  OH,  and  NO  are  determined 
from  Program  NOXRAT  for  each  F  .  These  specie  concentrations  are  then 
used  to  determine  the  values  of  R?,  R^,  Kjt  and  1^  (for  each  F  )  which 
are  needed  to  compute  the  race  of  nitric  oxide  formed  by  chemical 
reaction  and  the  calculation  then  proceeds  as  follows. 

Primary  Zone 

a.  The  specified  value  of  $  ,  the  fraction  of  fuel  burned  in 
the  primary  zone,  is  used  to  compute  fv,.  Sfh  can  then 
be  determined  for  all  p  values  over  the  range  of  interest 

{  O  -*f  F^2P?). 
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fa. 


c. 


d. 


The  value  of  the;  mean  residence  time  is  determined 

f rom  Equation  A-12, 

wi eric  oxide  concent rat  cone  at  the  primary  2one  exit  can 
then  be  computed  for  each  F  and  for  the  prescribed  resi¬ 
dence  time  distribution  by  solving  in  an  iterative  manner 
the  relationship. 


Finally  the  mass  average  nitric  oxide  concentration  is  com¬ 
puted  for  ail  gases  leaving  the  primary  zone  from  the  re¬ 
lationship,  -,s 


intermediate  Zone 

The  calculation  procedure  for  this  zone,  for  each  incremental 
step  in  the  axial  direction,  is  essentially  identical  to  that  for  the 
primary,  except  for  the  necessity  to  compute  a  change  in  NO  concen¬ 
tration  due  to  the  mixing  process.  The  procedure  is  as  follows: 

a.  For  X  ^X+ciX  ,  new  values  of  ohD  are  computed  at  each  p 
from  Equation  A~5. 

fa.  The  value  of  [no]/  ,  the  concentration  of  nitric  oxide  in  the 
gases  entering  the  control  volume  by  mixing  over  the  step 
is  computed  according  to  Equation  A-23- 

c.  The  nitric  oxide  concentration  at  position  X'*'4^  is  then 
computed  for  each  mixture  ratio  F  by  integration  of  Equa¬ 
tion  A -26. 

d.  Finally  tre  new  rrass  average  nitric  ox*de  concentration  is 
computed  as  for  Step  d  above. 

These  steps  are  repeated  to  the  end  of  the  intermediate  zone. 


Dilution  Zone 

The  results  of  the  intermediate  zone  calculation  serve  as  input 
to  the  dilution  zone.  At  this  stage  all  elements  in  the  combustor  are 


of  equal  composition  ana  temperature,  and  dilution  proceeds  by  the 
addition  of  pure  air  and  so  .-ne  can  use  the  relationship  (see  Equation 
A- 23)  that,  x-stix 


[NO] 


x+cU 


M*  =  I  f,  a*  +  f  of 


This  can  be  integrated  in  a  stepwise  manner  with  respect  toX  by 
interpolation  of  the  nitric  oxide  rate  data  at  each  step  to  determine 
the  nitric  oxide  concentration  conditions  at  the  corresponding f  value. 

The  nitric  oxide  formation  rate  quickly  reduces  in  this  zone  as 
the  temperature  decreases  rapidly. 
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3.  '  PROGRAM  GASNOX 

3.1  INTRODUCTION 

3.1.1  Program  Function  and  Capabilities 

Program  GASNOX  is  a  digital  computer  program  written  in  Fortran 
IV  language  for  use  with  {.ne  CDC  6600  computing  system.  The  program 
has  been  developed  for  the  purpose  of  predicting  the  nitric  oxide 
emission  level  from  an  aircraft  gas  turbine  combustor.  Based  on  a 
given  set  of  combustor  dimensions,  operating  conditions,  kinetic  rate 
constants,  thermodynamic  properties,  equilibrium  compositions,  and  a 
primary  zone  mixing  parameter,  the  program  will  compute  nitric  oxide 
concentrations  as  a  function  of  axial  position  in  annular  and  cananpular 
combustors. 

The  analytical  procedures  on  which  the  computer  program  is  based 
have  been  discussed  in  Section  2  of  this  volume  and  in  Reference  3. 
Briefly  the  model  considers  a  cambustor  to  consist  of  three  zones: 
primar  intermediate,  ana  dilution.  The  primary  zone  is  modeled  as 
a  partially  stirred  reactor  with  the  variation  of  gas  composition, 
temperature,  and  residence  time  occurring  within  the  zone  taken  into 
account  statistically.  The  program  predicts  only  the  gross  features 
of  the  flow  at  the  zone  exit.  The  intermediate  zone  represents  a 
transition  between  the  primary  and  dilution  zones.  Here  mixing  occurs 
between  the  heterogeneous  products  from  the  primary  zone  and  the 
entering  cooling  air.  The  program  predicts  the  gross  features  of  the 
flow  as  a  function  of  axial  position  in  this  zone.  In  the  dilution 
zone,  the  flow  is  uni-dimensional  w.'th  the  gases  uniformly  mixed 
across  each  cross  section.  Only  the  mean  mixture  ratio  is  considered, 
and  this  only  changes  as  the  remaining  compressor  air  is  mixed  into 
the  combustor.  The  procedures  incorporated  into  the  program  have  been 
found  to  be  quite  acceptable  in  terms  of  accuracy  and  calculation 
efficiency. 


3.},?  Report  Arrangement 


I 


V'~«“ 

I 


The  main  body  of  the  report  begins  with  a  section  in  which  the 
input  data  necessary  for  the  solution  of  any  cdse  are  described  in 
detail;  this  includes  instructions  for  preparing  and  supplying  these 
data  to  the  program  and  a  sample  case  in  the  appropriate  format.  The 
next  section  contains  a  discussion  of  the  various  types  of  output 
data  obtained .from  the  program  and  also  of  the  output  data  from  the 
sample  case.  A  description  of  the  error  messages  printed  by  the 
program  is  also  included.  Following  that  is  a  section  containing 
miscellaneous  information  regarding ;the  operation  of  the  program  with 
the  COG  6600  computing  system. 

The  first  appendix  consists  of .a  general  discussion  of  the  over- 

.  I 

all  logic  structure  of  the  program.  Tha  next  appendix  gives  the 
Fortran  nomenclature  for  the  variables  in  the  COMMON  blocks  of  the 
program.  The  remaining  appendices  except  the  last  provide  detailed 
descriptions  of  the  various  components  (main  routine  and  subroutines) 
which  make  up  the  over-all  program,  one  appendix  for  each  component. 
The  appendix  for  each  new  subroutine  contains  a  presentation  of  the 
input  and  output  variables,  an  internal  Fortran  nomenclature,  a  de¬ 
scription  of  the  step-by-stdp  calculation  procedure,  and  a  Fortran 
listing  of  the  subroutine.  The  last  appendix  contains  a  discussion  of 


the  method  of  calculation  of  the  air  distribution  characteristics. 


3.2  INPUT  DATA 


3.2.1  Genero?  Description 


Program  GASNOX  requires  tne  following  input  data  in  orde**  to 
determine  tha  nitric  oxide  emission  level  from  an  aircraft  gas 
turbine  engine. 

a.  Combustor  Dimensions 

* 

1.  Vp  -  Volume  of  tie  primary  zone 
'  2.  XL  -  Length  of  the  intermediate  zone  (from  the 

exit  of  the  primary) 
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3'.  X  ^  **  Distance  from  the  primary  zone  exit  to 

the  exit  from  the  ccnbustor  liner 

k.  Rj,  -  Radius  of  liner  at  position  X  for  canannular 

configuration 

5.  »Ry  "  Inner  and  outer  radii  of  liner  at  position 
5  u 

X  for  annular  configuration 

b. .  Combustor  Operating  Conditions 

l.  T  -  inlet  temperature 

2.  P  -  Operating  pressure 

3.  0p  -  Mass  mean  equivalence  ratio  in  the  primary 

zone  (before  fuel  burns) 

4.  ^  -  Fraction  of  fuel  entering  the  primary  zone 

which  burns  in  the  zone 

5i  ^rat  ”  Variable  for  altering  p  parametrically 
yet  maintaining  constant  the  over-all 
air-to-fuel  ratio  in  the  combustor 

6.  (M  )  -  Total  mass  per  cent  of  air  mixed  with  the 

aX  % 

product  stream  at  position  X  in  the  liner 

7.  -  Total  mass  of  air  fed  into  the  combustor 

1  iner 

8.  -  Mean  primary  zone  residence  time  .(appl  ies 

only  if  Vp  is  set  equal  to  zero) 

c.  Mixing  Parameter  for  the  Primary  Zone 

1.  Sq  -  Degree  of  mixedness  in  the  primary  zone 

(where  in  the  distribution  function 
o  _ 

is  given  by  ^  =  Sq  <Pp) 

d.  Kinetic  Constants  for  each  Mixture  Ratio  Element 

1.  Rj  -  Forward  reaction  rate  constant  for  the 

first  reaction  (see  Section  2  ,  Volume  2 
or  Ref  3) 

2.  R^  -  Forward  reaction  rate  constant  for  the 

sixth  reaction  (see  Section  2,.  Volume  2 
or  Ref  3) 
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3.  Kj  -  Ratio  of  forward  reaction  rate  constants 

(see  Section  2  ,  Volume  2  or  Ref  3) 

4.  -  Ratio  of  forward  reaction  rate  constants 

(see  Section  2  ,  Volume  2  or  Ref  3) 
e.  Thermodynamic  Properties  for  each  Mixture  Ratio  Element 

1.  P  -  Density  of  the  combustion  products 

2.  -  Adiabatic  flame  temperature  of  the  com¬ 

bustion  products. 


f.  Equilibrium  Compositions  for  each  Mixture  Ratio  Element 

1,  (N0)e  -  Nitric  oxide  equilibrium  mole  fraction 

2.  (CO)  -  Carbon  monoxide  equilibrium  mole  fraction 


3.  (C/  -  Solid  carbon  eoui librium  mole  fraction 

(s)  e 

4.  (C^e  “  Unburned  hydrocarbons  (exclusive  of  CO 


and  Cf  N)  equilibrium  mole  fraction. 


The  input  data  is  re3d  in  three  categories:  1)  the  kinetic, 
thermodynamic,  and  equilibrium  data  and  the  combustor  inlet  temperature 
and  pressure;  2)  the  combustor  airflow  distribution  and  radius  versus 
axial  position;  and  3)  the  remaining  combustor  dimensions,  operating 
conditions, and  the  primary  zone  mixing  parameter.  With  this  structure 
there  may  be  several  sets  of  data  in  a  given  computer  run.  Figure  3 
is  a  schematic  representation  of  the  data  input  structure. 


3-2.2  Detailed  Description  of  Input  Data 

The  information  required  to  prepare  the  input  data  for  a  case 
is  furnished  in  the  table  given  below.  This  information  contains 
a  description  of  each  input  item  as  well  as  a  description  of  the 
form  .n  which  these  items  are  written  on  input  data  sheets.  The 
descriptions  of  the  input  items  refer  frequently  to  several  points, 
relevant  to  the  selection  cf  input  values,  which  are  discussed  in 
the  following  subsection.  The  discussions  of  these  points 
provide  additional  detailed  information  useful  in  preparing  the  input 
data  for  any  case. 

The  first  input  item  read  by  Program  GASNOX  is  the  integer  variable 
1DATA  which  identifies  the  number  of  sets  of  data  in  category  1.  This 
input  is  then  followed  by  the  first  set  of  category  1  data  (see  point  a)- 
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1  npu  t 

Type  of 

Fortran 

Line 

Location 

1  tern 

Number 

Symbol 

Description 

1 

1-6 

lnt 

1DATA 

Number  of  sets  of  data  in 
category  1 

O 

1-72 

A 

SET(l) 

Descriptive  data  identifying 
atomic  composition  of  fuel  and 
the  turbine  inlet  temperature 

3 

1-14 

A 

SET ( 1 ) 

Descriptive  data  of  units  of 
combustor  inlet  pressure 

3 

15-29 

P 

FP 

PPP 

Combustor  inlet  pressure  (atm) 

3 

30-51 

A 

SET ( l ) 

Descriptive  data  of  set  of 
kinetic  constants  used  in 
calculation  (see  Volume  1, 

Table  2;  descriptive  data  of 
k 

3 

52-66 

k 

s 

FP 

EKS 

s 

Fuel-to-air  mass  ratio  at 
stoichiometric  conditions 

4 

1-12 

F. 

i 

FP 

FF  ( 1 ) 

Mixture  ratio  of  an  element 

4 

13-24 

<P; 

FP 

PHI  (1) 

Equivalence  ratio  of  an  element 

4 

25-36 

?, 

FP 

RH0(1) 

Density  of  combust  ion, products 
for  an  element  (gm/cnv  ) 

4 

37-48 

T. 

i 

FP 

ATT ( 1 ) 

Adiabatic  flame  temperature 
for  an  element  (deg  K) 

4 

49-60 

<»°.)e 

FP 

BC0N6O) 

Equilibrium  mole  fraction  of 

NO  for  an  element 

4 

61-72 

<CVe 

FP 

BC0N2(O 

Equilibrium  mole  fraction  of 

CO  for  an  element 

5 

1-12 

‘'Ml’. 

FP 

BCONl(l) 

Equi 1 ibrium  mole  fraction  of 
C^sj  for  an  element 

5 

13-24 

(c«2  ) 

i  e 

FP 

CH2(I) 

Equilibrium  mole  fraction  of 

unburned  hydrocarbons  exclusive 

of  C,  i  and  CO  for  an  element 
(s) 

5 

25-36 

<Vi 

FP 

Rl(l) 

Forward  reaction  rate  for  the 
^  .  ...  -  / 

first  kinetic  reaction  (see 
Section  2,  Volume  2  or  Ref  3) 
(gm-mole/cm^-sec) for  an  element 
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L?  ne 

Location 

Input 

1  tern 

Type  of 
Number 

Fortran 

Symbol 

Description 

5 

37-48 

<R6>i 

FP 

R6  ( 1 ) 

Forward  reaction  rate  for  the 
sixth  kinetic  reaction  (see. 
Section  2  , -Volume  2  or  Ref  3) 
(gm-mole/cnr -sec)  for  an  element 

5 

49-60 

<Kl>i 

FP 

EK1  (1) 

Ratio  of  forward  reaction  rate 
constants  (see  Section  2  ,  Volume 
2  or  Ref  3)  for  an  element 

5 

61-72 

(k2!, 

FP 

EK2  (  0 

Ratio  of  forward  reaction  rate 
constants  (see  Section  2,  Volume 

2  or  Ref  3)  for  an  element 

Lines  4-5  are 

repeated  for  each  of 

the  35  discrete  mixture  ratio 

elements 

specified 

in  the  distribution  function.  At  the  conclusion 

of  this 

data,  the 

integer  vari 

iable  KASE 

is  read.  KASE  identifies  the 

number  of  sets  of 

data  in  category  2  that  follow  for  the  given  set 

of  data 

i  n  category  1 . 

Line 

Location 

Input 

Item 

Type  of 
Number 

Fortran 

Symbol 

Description 

74 

1-6 

int 

KASE 

Number  of  sets  of  data  in 
category  2 

75 

1-12 

X 

FP 

AXX  (J) 

Axial  position  in  the  com¬ 
bustor  (in) 

75 

13-24 

(«  ) 
ax  % 

FP 

APR  (J) 

Per  cent  of  total  mass  of  air¬ 
flow  in  combustor  liner  at 
position  X (cumulative) 

75 

25-36 

Rx 

FP 

ARR  (J) 

Radius  of  liner  at  position 

X;  applies  only  for  canannular 
configuration  (in)  (see  point  b) 

75 

37-48 

Rx 

*! 

FP 

ANR(J) 

inner  radius  of  liner  at 
position  X;  applies  only  for 
annular  configuration  (in) 

(see  point  b  ) 

75 

49-60 

Rx 

Ao 

FP 

ANNR  (J) 

Outer  radius  of  liner  at 
position  X;  applies  only  for 

annular  configuration  (in) 
(see  point  b  ) 


75 
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ft 

t- 


line 

86 


Line  75  is  repeated  for  each  of  11  axial  positions  in  the 
combustor.  The  first  axial  position  must  be  taken  as  X  3  0;  that 
is,  at  the  exit  of  the  combustor  primary  zone. 

There  may  be  as  many  sets  of  data  in  category  3  for  eacn  set 
of  data  in  category  2  as  the  user  desires.  The  number  of  these  data 
sets  is  read  as  the  variable  IN,  on  line  86. 


Location 

1-6 


Input 

Item 


Type  of  Fortran 
dumber-  Symbol 


Int 


IN 


Description 

Number  of  sets  of  data  in 
category  3 


Following  the  data  on  line  86  is  the  data  of  category  3. 


Input 

Line  Locat i on  Item 


Type  of 
Number  ' 


Fortran 

Symbol 


te 

m 

&7 

1-12 

VP 

FP 

VP 

% 

s 

87 

13-24 

xi 

FP 

XL 

n 

iss 

B 

M 

87 

25-36 

L 

XEND 

FP 

XEND 

8 

§ 

1 

87 

37-« 

P? 

FP 

EQUIV 

if 

I 

EE 

8 

87 

49-60 

? 

FP 

BETA 

ji 

n 

H 

87 

61-72 

ha 

FP 

TGTAiR 

B 

1 

m 

88 

1-12 

s 

FP 

S 

m 

ij 

8 

88 

13-24 

0 

^rat 

FP 

ERAT 

88 


25-36 


FP 


TAUBAR 


Description 

3 

Volume  of  primary  zone  (inJ) 

(see  point c  ) 

Length  of  intermediate  zone 

(in) 

Length  of  intermediate  zone 
and  dilution  zone  (combined) 

(in) 

Mass  mean  equivalence  ratio 
in  the  primary  zone  (before 
fuel  burns) 

Combustion  efficiency  in  the 
primary  zone 

Total  mass  of  air  fed  into  the 
combustor  liner  (Ib/sec) 

Degree  of  mixedness  in  the 
primary  zone 

Variable  for  varying 
parametrically  yet  maintaining 
constant  air-to-fuel  ratio  in 
the  combustor 

Mean  primary  zone  residence  time 
(applies  only  if  V  is  set  equal 
to  zero)  (see  point c  ) 


«a»  eg  w-j  w*  bG  f  ■  '' 
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Lines  37~?8  are  repeated  for  each  set  of  data  in  category  3  that 
the  user  wishes  to  specify. 


3.2.3  Discussion  of  input  Data 

Some  important  aspects  to  be  considered  in  appropriately  specifying 
the  inp-..t  data  are  discussed  below.  Reference  to  these 
discussions  has  been  made  in  the  preceding  subsection  in  which  the  in¬ 
put  format  was  described.  The  points  referred  to  are  as  follows: 

a.  Data  in  category  1  (lines  2-73)  are  generated  by  Program 
NOXRAT  described  in  Volume  2. 

b.  If  a  canannular  configuration  is  tested,  the  variables  Rw 

A  j 

and  Ry  are  set  equal  to  zero.  If  an  annular  configura¬ 
te) 

tion  is  tested,  the  variable  is  set  equal  to  zero. 

c.  If  the  user  chooses  to  specify  the  volume  of  the  primary 
zone,  V  ,  then  the  mean  primary  zone  residence  time  i'X  ) 
is  set  equal  to  zero  in  the  input.  ^  is  then  calculated 
by  the  program.  l*f ,  on  the  other  hand,  the  user  chooses  to 

specify  ,  he  must  set  V  equal  to  zero  in  the  input. 

P  P 


3.2.4  Description  of  Sample  Case  Input 

Completed  input  data  sheets  are  shown  on  pages  32  and  33.  In 
this  table  lines  1-73  comprise  the  data  and  controls  for  category  1 
(note:  lines  6-73  are  <  itted  for  brevity);  lines  74-85  comprise  the 
data  and  controls  for  category  2:  and  lines  86-88  comprise  the  data 
and  control?  ror  category  5. 

In  this  case,  the  fictitious  combustor  examined  has  an  inlet 
temperature  of  700  deg  K  and  an  operating  pressure  of  5-78  atm.  The 
combustor  is  10  inches  in  length  from  the  exit  of  the  primary  zone, 
has  a  primary  zone  volume  of  55  in^,  and  is  being  operated  with  a 
mean  primary  zone  equivalence  ratio  (before  the  fuel  burns)  of  0.9. 
The  over-all  air-to-fuel  ratio  is  92. 


3.3  OUTPUT  DATA 

The  output  of  Program  GAS N' OX  consists-  entirely  of  printed  data. 
The  printed  data  falls  into  two  main  categories:  normal  output,  and 
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error  messages  with  additional  output.  The  normal  output  which  is 
illustrated  by  the  sample  case  included  in  the  report,  will  be 
described  first. 

3.3.1  Normal  Output 

The  Information  included  in  the  normal  output  can  be  divided  into 
the  following  categories: 

1.  Genera]  input  data  and  miscellaneous  calculated  input  data. 

2.  Elemental  primary  zone  exit  conditions  from  the  converged 
solution. 

3..  Over-all  primary  zone  exit  conditions  from  the  converged 
solution. 

4.  Over-all  intermediate  zone  conditions  at  various  axial  posi¬ 
tions  in  the  zone  from  the  converged  solution. 

5.  Over-all  dilution  zone  conditions  at  various  axial  positons 
in  the  zone  from  the  converged  solution. 

A  description  of  the  items  "in  each  category  is  given  below. 

The  normal  outpu'.  of  a  typical  C3se  begins  with  the  items  in  category 
1 —  general  input  data  and  miscellaneous  calculated  input  data.  This 
data  consists  of: 

a.  Axial  position  in  the  combustor  (where  the  origin  is  taken  as 
the  primary  zone  exit)  (in). 

b*  Total  mass  per  cent  of  air  mixed  with  the  product  stream  at 
position  X. 

c.  Radius  of  liner  at  position  X  for  csnannular  configuration  or 
Inner  and  outer  radii  of  liner  at  position  X  for  annular 
configuration  (in). 

d*  The  case  number;  this  number  corresponds  to  the  set  of  com¬ 
bustor  dimensions,  operating  conditions,  and  the  primary  zone 
mixing  parameter  for  the  given  combustor  airflow  characteristics. 

e.  The  cumulative  normal  distribution  data. 

f.  The  atomic  formula  of  the  fuel. 

g.  The  combustor  air  inlet  temperature  (deg  K). 

h.  The  combustor  operating  pressure  (atm)* 
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i.  A  code  number  identifying  the  set  of  kinetic  constants 
employed  in  the  reaction  scheme. 

j.  The  value  of  the  fuel-to-air  mass  ratio  at  stoichiometric 
conditions. 

k  •  For  each  element  in  the  distribution  function:  the  mixture 

ratio  (mass  fuel  to  mass  fuel  and  air);  the  equivalence  ratio; 

3 

the  density  of  the  combustion  products  in  gm/cm  ;  the  adiabatic 
flame  temperature  of  the  combustion  products  in  deg  K;  the 
equilibrium  mole  fraction  of  NO,  CO,  C^sj,  and  CH^  (unburned 
hydrocarbons);  and  the  kinetic  parameters  Rj ,  Rg  (in  gm-moles/ 
cm^-sec),  Kj  and  (dimensionless)  defined  in  Section  2  of 
Volume  2. 

1  ,  The  volume  of  the  primary  zone  (in  ). 

m  »  The  length  of  the  intermediate  zone  (in), 

n  .  The  length  of  the  intermediate  and  dilution  zone  (combined) 
(in). 

o'.  The  mean  primary  zone  equivalence  ratio  (before  the  fuel 
burns). 

p  .  The  combustion  efficiency  in  the  primary  zone, 
q  .  The  total  mass  of  air  fed  into  the  combustor  liner  (Ib/sec). 

r  .  The  degree  of  mixedness  in  the  primary  zone, 

s ..  The  variable  used  for  altering  the  mean  primary  zone  equiva¬ 
lence  ratio  parametrically  without  changing  the  over-all  air- 
to-fuel  ratio  in  the  combustor, 
t-.  The  total  mass  of  fuel  fed  into  the  combustor  (ib/hr'. 
u .  The  over-all  air-to-fuel  ratio  in  the  combustor. 

The  norau.!  output  of  a  typical  case  continues  with  the  items  in 
category  2—  elemental  primary  zone  conditions  for  the  converged  solu¬ 
tion.  These  items,  which  begin  after  a  statement  describing  them, 
consist  of: 

a.  The  mass  fraction  in  the  element. 

5.  The  NO  concentration  in  the  element  (ppm)  (vol). 

c.  The  cumulative  sum  of  the  NO  formed  up  to  and  including  the 
element  (lb/sec). 

d .  The  element  number. 
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Only  those  elements  with  a  finite  rate  of  formation  of  NO  are 
included  in  this  output  table. 

The  normal  output  of  a  typical  case  continues,  after  a  statement 
describing  the  data,  with  the  items  in  category  3 —  over-all  primary 
zone  exit  conditions  from  the  converged  solution.  This  data  consists 
of: 

a.  The  axial  position  in  the  combustor  (in). 

b.  The  mass  mean  primary  zone  equivalence  ratio,  accounting  for 
the  inefficiency  of  the  primary  zone  combustion. 

c.  The  mass  mean  exit  temperature  of  the  primary  zone  (deg  F). 

d.  The  mass  mean  density  of  the  primary  zone  combustion  products 
(lb/ft3). 

e.  The  mass  mean  primary  zone  residence  time  (msec). 

f.  The  mass  mean  concentration  of  NO  in  the  primary  zone  (ppm)  (vol). 

g.  The  mass  mean  concentration  of  NO  in  the  primary  zone,  expressed 

as  NC^  (lb/ 1000  lb  fuel  burned). 

h. "  The  mass  mean  equilibrium  concentration  of  in  the  primary 

zone  (ppm)  (vol). 

i.  The  mass  mean  equilibrium  concentration  of  C^j  in  the  primary 
zone  (lb/1000  lb  fuel  burned). 

j.  The  mass  mean  equilibrium  concentration  of  CO  in  the  primary 
zone  (ppm)  (vol). 

k.  The  mass  mean  equilib'ium  concentration  of  CO  in  the  primary 
zone  (1 o/l 000  lb  fuel  burned). 

J.  The  mass  mean  equilibrium  concentration  of  unburned  hydro¬ 
carbons  (exclusive  of  CO  and  C^j)  *n  the  primary  zone  (ppm) 

(vol). 

m.  The  mass  mean  equilibrium  concentration  of  unburned  hydro¬ 
carbons  (exclusive  of  CO  and  C^jjin  the  primary  zone  (lb/ 

1000  lb  fuel  burned). 

3  2 

n.  The  fuel  loading  (Ib/sec-ft  -atm  ). 

The  normal  output  of  a  typi-cal  case  continues,  after  a  statement 
describing  the  data,  with  the  items  in  category  h —  over-all  intermediate 
zone  conditions  at  axial  positions  in  the  zone  corresponding  to  the 
converged  solution.  This  data  consists  of: 
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c. 


a.  The  axial  position  in  the  combustor  (in). 

b.  The  mass  mean  equivalence  ratio,  at  the  given  axial  station 
in  the  intermediate  zone,  accounting  for  the  inefficiency 
of  the  primary  zone  combustion. 

The  mass  mean  exit  temprature  at  the  given  axial  station  in 
the  intermediate  zone,  (deg  F). 

The  mass  mean  density  of  the  combustion  products  at  the  given 
axial  station  in  the  intermediate  zone  (lb/ft^). 

The  mass  mean  residence  time  of  the  combustion  products  from 
the  combustor  entrance  to  the  given  axial  station  in  the 
intermediate  zone  (msec). 

The  mass  mean  concentration  of  NO  at  the  given  axial  station 
in’ the  intermediate  zone  (ppm)  (vol). 


e. 


f. 


g.  The  mass  mean  concentration  of  NO,  expressed  as  NO^.  at  the 
given  axial  station  in  the  intermediate  zone  (lb/1000  lb 
fuel  burned). 

h.  The  mass  mean  equilibrium  concentration  of  C ^  at  the  given 
axial  station  in  tha  intermediate  zone  (ppm)  (vol). 

i.  The  mass  mean  equilibrium  concentration  of  at  the  given 
axial  station  in  the  intermediate  zone  (lb/1000  lb  fuel  burned). 

j.  The  mass  mean  equilibrium  concentration  of  CO  at  the  gi*  n 
axial  station  in  the  intermediate  zone  (ppm)  (vol). 

k«  The  mass  mean  equilibrium  concentration  of  CO  at  the  given 

axial  station  in  the  intermediate  zone  (lb/1000  lb  fuel  burned). 

l.  The  mass  mean  equilibrium  concentration  of  unburned  hydrocarbons 
(exclusive  of  CO  and  C^^  at  the  given  axial  station  in  the 
intermediate  zone  (ppm)  (vol). 

m.  The  mass  mean  equilibrium  concentration  of  unburned  hydro¬ 
carbons  (exclusive  of  CO  and  C^^)  at  the  given  axial  station 
in  the  intermediate  zone  (lb/ 1000  lb  fuel  burned). 

If  the  chemical  rate  of  production  of  NO  is  frozen  at  any  axial 
station  in  the  intermediate  zone,  the  program  prints  a  message  to  that 
effect  and  proceeds  with  the  dilution  zone  calculations  and  output. 

The  normal  output  of  a  typical  case  concludes,  after  a  statement 
describing  the  data,  with  the  items  in  category  5 —  over-all  dilution 
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zone  conditions  at  axial  positions  in  the  zone  corresponding  to  the 
converged  solution.  If  the  chemical  rate  of  formation  cf  NO  was 
frozen  at  any  axial  station  In  the  intermediate  zone,  only  the  dilution 
zone  exit  conditions  are  printed.  The  data  in  this  category  consists 
of: 


a  ( 
h, 


k. 

1  . 

m . 


If 

station 


The  axial  position  in  the  combustor  (in). 

The  mass  mean  equivalence  ratio,  at  the  given  axial  station 
in  the  dilution  zone,  accounting  for  the  inefficiency  of  the 
primary  zone  combustion. 

The  mass  mean  exit  temperature  at  the  given  axi-'O  station  'n 
the  dilution  zone  (deg  F). 

The  mass  mean  density  of  the  combustion  products  at  the  given 
axial  station  in  the  dilution  zone  (Ib/ft  ). 

The  mass  mean  residence  time  of  the  combustion  products  from 
the  combustor  entrance  to  the  given  axial  station  in  the 
dilution  zone  (msec). 

The  mass  mean  concentration  of  NO  at  the  given  axial  station 
in  the  dilution  zone  (ppm)  (vol). 

The  mass  mean  concentration  of  NO,  expressed  as  NO^  at  the 
given  axial  station  in  the  dilution  zone  (lb/1000  lb  fuel  burned). 
The  mass  mean  equilibrium  concentration  of  at  the  given 

axial  station  in  the  dilution  zone  (ppm)  (vol). 

The  mass  mean  equilibrium  concentration  of  C^  at  the  given 
axial  station  in  the  dilution  zone  (3b/100Q  lb  fuel  burned). 

The  mass  mean  equilibrium  concentration  of  C^j  at  the  given 
axial  station  in  the  dilution  zone  (ppm)  (vol). 

The  mass  mean  equilibrium  concentration  of  CO  at  the  given 
axial  station  in  the  dilution  zone  (lb/1000  lb  fuel  burned). 

The  mass  mean  equilibrium  concentration  of  unburned  hydro¬ 
carbons  (exclusive  of  CO  and  C^j)  at  the  given  axial  station 
in  the  dilution  zone  (ppm)  (vol). 

The  mass  mean  equilibrium  concentration  of  unburned  hydro¬ 
carbons  (exclusive  of  CO  and  C^)  a£  the  given  axial  station 
in  the  dilution  zone  (lb/1000  lb  fuel  burned), 
the  chemical  rate  of  prediction  of  NO  is  frozen  at  any  axial 
in  the  dilution  zone,  the  program  prints  a  message  to  th3t 


effect  after  completing  the  dilution  zone  calculations  and  printing 
the  output  at  the  axial  position  that  corresponds  to  the  combustor  exit. 

3.3.2  Error  Messages  and  Additional  Output 

in  addition  to  the  normal  output,  various  messages  may  appear  in 
the  output  of  a  case.  These  messages  either  indicate  that  diff:culty 
has  been  encountered  during  execution  of  the  case  or  that  the  usar 
has  specified  the  printing  of  intermediate  output  to  examine  progress 
in  the  iterat'ons.  The  messages  are  considered  below  in  the  order  of 
their  appearance  in  the  program. 

a.  If  intermediate  output  is  requested  by  the  user,  the  program 
will  print  the  value  of  the  total  mass  contained  in  each 
mixture  ratio  element  and  the  value  of  the  parameters  that 
define  the  range  of  the  mass  distribution  function.  These 
values  are  printed  in  Subroutine  ZMASS;  they  are  printed 
for  each  converged  axial  position  in  the  combustor. 

5.  If,  in  calculating  the  values  of  (  06*- ) . ,  the  number  of 

iterations  on  a  given  element  equal  ten,  the  program  prints 
'the  number  of  iterations  and  the  last  value  of 
This  is  a  nonfatal  error  as  the  program  assumes  the  value 
of  (  ot<Y  ) .  to  be  the  last  value  calculated.  The  error 
message  is  printed  in  Subroutine  PRCALC.  This  error  is 
caused  by  limiting  the  number  of  iterations  to  ten;  it 
can  be  relieved  by  increasing  the  limit. 

c.  POTENTIAL  ERROR  DUE  TO  LACK  OF  CONVERGENCE,  SUHTNO(l)  = 
+X.XXXXXXXXE+XX  PRIOR  VALUE  OF  SUKTNO(l)  =  +X.XXXXXXXXZ+ 

XX  1  =  XXX  * 

This  message  is  printed  in  Subroutine  PRCALC  for  a  primary 
zone  element  that  fails  to  satisfy  convergence  criteria  after 
five  iterations.  This  is  a  nonfatal  error  as  the  program 
assumes  that  the  value  of  SUMTNO(l)  is  the  last  value  cal¬ 
culated.  The  error  is  caused  by  limiting  the  number  of 
iterations  to  five;  it  can  be  remedied  by  increasing  the 
1 imi t. 
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d.  If  intermediate  output  is  requested  by  the  user,  the  program 
will  print  the  value  of  the  nitric  oxide  content  of  each 
mixture  ratio  element  for  each  converged  axial  position  in 
the  combustor.  These  values  are  printed  in  Subroutine  PRINTS. 

&  If  the  number  of  iterations  attempting  to  satisfy  the  mixing 

i 

criteria  equal  40  for  any  mixture  ratio  element  at  any  axial 
station  in  the  intermediate  zone.  Subroutine  Z  I.NTER  will 
print  the  most  recent  value  of  E.,  and  the  number  of  iterations. 
This  is  a  fatal  condition  to  the  program  causing  immediate 
termination  of  the  calculations.  This  procedure  is  a  safety 
control  to  keep  ti  -  program  from  continuing  into  an  indefinite 
loop;  it  is  likely  caused  by  some  trouble  in  the  calculation* 
of- element  masses  and  can  only  be  remedied  by  dete:led  exami¬ 
nation  of  the  flow  rates  into  and  out  of  each  mass  element. 

f .  X(CM)  =  +XiXXXXXE+XX  J  =  XX 
AVE.  RH0(GM/CC)  =  +X.XXXXXE+XX 
AVE.  N0(GM/GM)  «  +X.XXXXXE+XX 

This  message  is  printed  from  Subroutine  ZINTER  at  the  end  of 
each  iteration  loop  in  the  intermediate  zone  if  intermediate 
output  is  requested  by  the  user.  The  meaning  of  the  message 
is  quite  clear;  both  the  density  and  nitric  oxide  concentrations 
are  mass  averages.  J  is  the  number  of  iterations. 

g.  RUNGE-KUTTA  ITERATION  FAILED  TO  CONVERGE  TO  SPECIFIED  LIMIT, 

DIFNO  =  +X. XXXXXE+XX  N  =  XXXX  X  =  CMS 

This  ncnfatal  message  is  printed  by  Subroutine  ZINTER  at  each 
axial  position  in  the  intermediate  zone  where  convergence 
criteria  on  the  NO  iterations  are  not  satisfied.  N  here  is 
the  number  of  steps  each  major  step  is  divided  into  for  the  last 
iteration;  DIFNO  identifies  the  difference  in  the  calculated 
nitric  oxide  levels  at  the  end  of  the  major  step  down  the 
combustor  tD  position  X.  There  are  two  possible  reasons  for 
the  appearance  of  the  message: 

1.  'he  number  of  steps  allowed  in  the  Runge-Kutta  integration 
are  inadequate. 
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2.  The  convergence  1 imit  is  too  narrow* 

s  •  Relaxation  of  either  of  these  control  criteria  will  eliminate 

the  iteration  difficulty. 

h.  X(CH)  =  +X.XXXXXE+XX  J  =  XX  AVE.RHO 

GM/CC) '=  +X.XXXXXE+XX  AVE.NO  =  +X.XXXXXE+XX 

,+X.XXXXXE+XX  +X.XXXXXE+XX 

This  message  is  printed  from  Subroutine  DILUTE  at  the  end 
of  each  iteration  in  the  dilution  zone  if  intermediate 
.  output  is  requested  by  the  user.  The- meaning  of  the  message 
.  is  quite  clear  except  for  the  last  two  variables  printed; 
these  variables  are  rate  qf  change  of  nitric  oxide  mass 
fraction  with  position  due  to  chemical  reaction  and.  dilution, 

I  . 

i  •  respectively.  Both  the  density  and  nitric  oxide  concentrations 
=  are  mass  averages.  J  is  the  number  of  iterations. 

I  1 

% .  If  intermediate  output  is  requested  by  the  user.  Subroutine 

DILUTE  prints*the  difference  between  the  calculated  nitric 

oxide  levels  .for  the  last  two  iterations  at  the  end  of  each 

major  step  down  the  combustor,  in  Addition,  DILUTE  also  prints 

the  number  of  integration  steps  each  major  step  is  divided 
»  • 

into  for  the  last  iteration. 

j.  RUNGE-KUTTA  ITERATION  FAILED  TO  CONVERGE  TO  SPECIFIED  LIMIT. 
DIFNO  =  +X. XXXXXE+XX  N  =  XXXX  X  =  +X.XXXXXE+XX 

This  nonfatal  message  is  printed  by  Subroutine  DILUTE  at 
.each  axial  position  in  the  dilution  zone  where  convergence 
criteria  on  the  NO  iterations  are  not  satisfied.  N  here  is 
the  number  of  steps  each  major  step  is  divided  into  for  the 
last  iteration;  DIFNO  identifies  the  difference  in  the 
calculated  nitric  oxide  levels  at  the  end  of  the  major  step 
down  the  combustor  to  position  X.  There  are  two  possible 
reasons  for  the  appearance  of  the  message: 

,  1.  The  number  of  steps  allowed  in  the  Runge-Kutta  integration 

«  I  • 

are  inadequate. 

2.  The  convergence  limit  is  too  narrow. 

Relaxation  of  either  of  these  control  criteria  will  eliminate 
the  iteration  difficulty. 
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3o*3  Description  of  Sample  Case  Output 

The  output  from  the  fictitious  sample  case  described  on  pages 
33  and  3^  is  presented  on  pages  35“**2.  The  data  on  pages  35-38 
represents  the  input  data  for  this  fictitious  case  while  calculated 
results  are  shown  on  pages  $S-h2.  From  the  data  it  is  seen  that  the 
mean  primary  zone  residence  time  for  the  combustor  is  2  msec;  and, 
in  that  time,  a  mass  average  concentration  of  300  ppm  (vol)  of  nitric 
oxide  has  been  formed.  Within  a  distance  of  1.5  inches  down  the 
combustor  intermediate  zone,  the  chemical  rate  of  formation  of  nitric 
oxide  is  negligible  in  comparison  with  the  amount  of  nitric  oxide 
previously  formed.  Consequently,  only  the  dilution  of  the  total 
nitric  oxide  formed  to  that  point  is  important  to  the  final  emission 
figure  of  73  ppm  (vol). 

3.4  MISCELLANEOUS  OPERATIONAL  INFORMATION 

Program  GASNOX  occupies  approximately  20,000  core  locations  during 
loading  and  approximately  12,000  core  locations  during  execution  on 
the  CDC  6600  computer.  Actual  program  length  is  approximately  7i00  core 
locations.  Hence,  the  total  storage  requirement  for  this  program  is 
comfortably  witiin  the  CDC  6600  core  capacity  of  131,000  locations. 

The  execution  time  for  Program  GASNOX  depends  upon  the  characteris¬ 
tics  of  the  particular  combustor  being  analyzed.  It  has  been  found, 
however,  that  a  typical  case  will  require  approximately  10  to  15  seconds 
of  central  processor  time  on  the  CDC  6600  with  another  1  to  2  systems 
seconds  necessary  to  satisfy  input/output  requirements.  Approximately 
12  systems  seconds  are  required  to  load  and  compile  the  program. 

There  are  no  known  sources  of  convergence  diffit.-,.  •  in  the  program 
save  the  limits  imposed  on  the  number  and  accuracy  of  the  Runge-Kutta 
integrations.  These  requirements  are  adequate  for  most  applications  of 
the  program;  they  are  neither  too  restrictive  to  cause  convergence  diffi¬ 
culties  nor  too  loose  to  permit  an  abundance  of  interations  and 
excessive  comsuter  costs. 
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3-5  DATA  INPUT  SWEET 

NOx  from  Gas 

ENGINEER*  _  ftOS  PROJECT*  Turbine  Combustors 
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6.  NOMENCLATURE 


Symbols 


Mno 

S>n°j 


Descr ipt ion 

Preexponential  factor  in  Arthenus  equation 
Total  cross-sectional  area  of  combustor  liner 
Model  constant  in' equation  A-15 
Model  constant  in  equation  A- 24 
Model  constant  in  equation  A-24 
Coefficient  in  combustor  efficiency  parameter 
Normalizing  factor  in  distribution  function 
Activation  energy 
Fraction  of  mass 

Mixture  ratio,  (fuel  mass/total  mass) 

Reaction  rate  constant 

Fraction  of  mass  £<*1  leaving  control  value  over  Sk 

Length  of  intermediate  zone 

Total  mass  flow  rate  in  combustor  liner 

Mass  flow  rate  of  diluent  air  per  unit  length 

Moleculer  weight  of  nitric  oxide 

Mass  fraction  of  nitric  oxide,  (Mass  NO/total  mass) 

i  iW- 

Pressure 

Rate  of.  .format ion  of  nitric  oxide  per  unit  volume 
Gas  constant 

Equilibrium  rate  of  reaction 

Time 

Temperature 
Veloci ty 

Characteristic  combustor  velocity 
Volume  of  primary  zone 
Axial  distance 

Cross-sectional  area  of  element  with  mixture  ratio  F 

Mass  rate  of  element  with  mixture  ratio  F 

Range  of  F  about  F  in  element  with  mass 

Nitric  oxide  concentration  as  fraction  of  equilibrium 


Description 


Symbols 

c 


? 

°T 


Fractional  mass  flow  of  unburned  fuel,  mfu^m 
Fraction  of  fuel  burned  in  primary  zone 
Standard  deviation 
Density 

Residence  time 

Combustion  efficiency  parameter 


Subscri pts 
Q. 

? 

F 

x 

u 

L 

? 

a 

o 


Description 

Dilution  air 
Total  fU2i 
Unburned  fuel 

With  characteristic  mixture  ratio  F 

t 

t, -i-  element  in  series 
State  below  that  indicated  by 
Condition  in  primary  zone 
With  characteristic  residence  time 

A 

State  above  that  indicated  by 

Condition  at  entrance  to  intermediate  zone 


Superscripts 

<  / 
c  >" 

(  >* 

C ) 


Description 

Condition  at  entry  to  control  volume 

Condition  at  exit  from  control  volume 

Condition  of  combustor  products  entrained  into 
control  volume 

Hass  average  value 
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APPENDIX  I  -  OVER-ALL  PROGRAM  LOGIC 

Program  GASNOX  consists  of  a  main  routine  and  twelve  subroutines. 
The  subroutines  are  PRIMRY,  ZINTER,  DILUTE,  PRCALC,  PRRAT,  CHECKK, 
CALCBC ,  RUNKUT,  DERIV,  MINT,  ZMASS,  and  PRINTS.  Information  is  trans¬ 
mitted  within  the  computer  program  through  blocks  of  COMMON  and  as 
arguments  of  certain  subroutines.  The  over-all  control  of  the  pro¬ 
grammed  calculation  procedure  is  maintained  by  the  main  routine. 

The  logic  flow  begins  at  the  start  of  the  main  routine  where  the 
input  data  is  read  and  then  printed.  Subroutine  PRIMRY,  which  con¬ 
trols  the  combustor  primary  zone  calculations,  is  then  called. 

The  primary  zone  is  modeled  as  a  partially  stirred  .eactor,  with 
the  variations  in  gas  composition,  temperature,  and  residence  time 
taken  into  account  statistically.  Thus,  PRIMRY  first  calls  Subrou¬ 
tine  ZMASS  to  calculate  element  masses,  ZMASS.  in  turn,  calls  Sub¬ 
routines  MINT  and  CALCBC.  MINT  provides  interpolated  values  of  tabu¬ 
lated  functions  of  one  variable  assuming  a  linear  relationship  be¬ 
tween  the  adjacent  tabular  entries.  CALCBC  calculates  values  of  the 
mass  flow  coefficient  at  each  axial  station  of  the  combustor  primary 
and  intermediate  zones.  CALCBC  also  calls  Subroutine  MINT.  After 
calling  ZMASS,  Subroutine  PRIMRY  calls  Subroutines  PRCALC  and  PRINTS. 
PRCALC  controls  and  calculates  the  average  nitric  oxide  level  in 
the  primary  zone  for  each  specified  mixture  ratio  element  in  the  mass 
distribution  function.  PRCALC  calls  Subroutines  PRRAT  and  MINT  to 
conduct  its  calculations;  PRRAT  solves  the  analytical  expression  re¬ 
lating  the  elemental  nitric  oxide  concentration  to  the  elapsed  time 
in  the  primary  zone.  PRINTS  provides  the  written  output  of  the  cal¬ 
culated  results  of  the  program. 

Having  completed  the  primary  zone  calculations,  GASNOX  calls 
Subroutine  ZINTER  to  perform  and  control  the  intermediate  zone  analy¬ 
sis  j_f  the  primary  zone  mixing  parameter  is  other  than  zero.  If  the 
mixing  parameter  is  set  at  zero,  GASNOX  skips  over  the  intermediate 
zone  calculations  and  proceeds  with  dilution  zone  calculations  via 
Subroutine  DILUTE. 
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The  intermediate  zone  of  the  combustor  is  divided  into  a  series 
of  finite  length  axial  elements  in  which  the  heterogeneous  products 
from  the  primary  zone  mix  with  one  another  and  with  the  entering 
cooling  air.  By  the  end  of  the  zone  the  distribution  is  collapsed 
to  a  uni -dimensi onal  profile.  To  accomplish  this  mixing  process 
ZiNTER  calls  on  Subroutines  ZMASS,  CHECKK,  RUNKUT,  MINT,  and  PRINTS. 
The  function  of  Subroutines  ZMASS  and  MINT  are  as  before;  PRINTS 
writes  the  calculated  mass  mean  conditions  at  the  end  of  each  fi¬ 
nite  length  axial  combustor  segment.  Subroutine  CHECKK  calculates 
the  proportionality  constant  between  the  mass  flow  rate  out  of  an 
element  due  to  mixing  and  the  total  mass  flowing  into  it  at  a  given 
axial  position  in  the  combustor.  RUNKUT  is  employed  to  obtain  the 
solution  to  the  first  order  ordinary  differential  equation  between 
nitric  oxide  concentration  and  axial  position  in  the  combustors  by 
the  Gill  variation  of  the  Runge-Kutta  numerical  integration  scheme. 

In  doing  so,  RUNKUT  calls  Subroutine  DER1V  which  calculates  the  rate 
of  nitric  oxide  formation  with  respect  to  axial  distance  in  the  com¬ 
bustor  intermediate  or  dilution  zone. 

In  the  dilution  zone,  the  flow  is  uni -dimensi onal  with  the  gases 
uniformly  mixed  across  each  cross  section.  To  perform  and  control 
these  calculations  GASNOX  calls  on  Subroutine  DILUTE.  DILUTE  in 
turn  calls  cn  Subroutines  ZMASS,  MINT,  RUNKUT,  and  PRINTS  for  calcu¬ 
lations  and  printout  at  specified  axial  stations  in  the  zone.  The 
only  deviation  of  these  subroutines  from  their  previously  described 
functions  occurs  in  ZMASS:  since  the  mixture  ratio  distribution  is 
collapsed  to  a  flat  profile,  it  omits  reference  to  Subroutine  CALCBC. 

This  concludes  the  description  of  the  over-all  logic  structure 
of  Program  GASNOX.  A  modular  diagram  of  GASNOX  is  provided  as  Fig¬ 
ure  4. 
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APPENDIX**']  1  -  COMMON  FORTRAN  NOMENCLATURE 


The  following  tables  contain  the  COMMON  Fortrap  nomenclature 
for  Program  GASNCX.  COMMON  consists  of  seven  labeled  blocks;  the 
nomenclature  is  arranged  in  alphabetic  order  for  each  block.  Singly 
subscripted  arrays  are  indicated  by  their  respective  indices. 

1  -  Element  index 

J  -  Incremental  station  index  for  the  X  direction 

K  -  Distribution  index 


Nomenclature  for  C0MM0N/DATA1/ 


Fortran 

Symsol  Symbol 

AIR(J)  Mft| 

ATT(I)  Tj 

A1  A, 

A2  A2 

A3  A3 

BCONl(l)  (C(s);)e 

BC0N2 ( I )  (CO; )e 

BC0N6(I)  (N0;)e 

BETA 

CH2(  1 )  (CH2;)e 


Description  Units 

Combustor  airflow  at  axial  station  X  gm/sec 

Adiabatic  flame  temperature  for  an 

element  i  deg  K 

Exponent  in  relationship  governing 
collapse  of  mixture  ratio  distribution 
function 

Factor  in  relationship  defining  the  rate 
at  which  unburned  fuel  is  burned  in  the 
intermediate  zone 

Exponent  in  relationship  defining  the  rate 
at  which  unburned  ruel  is  burned  in  the 
intermediate  zone 

Equilibrium  mole  fraction  of  carbon  for 
an  element  i 

Equilibrium  mole  fraction  of  carbon  monoxide 
for  an  element  i 

Equilibrium  mole  fraction  of  nitric  oxide  for 
an  element  i 

Combustion  efficiency  in  the  primary  zone 

Equilibrium  mole  fraction  of  unburned  hydro¬ 
carbons  exclusive  of  C^sj  and  CO  for  an  element  i 
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E 


i-ortran 

Symbol 


Symbol 


DescriDtion 


Units 


CN 

CUMDIS(K) 

CN 

Mixing  characteristic 

Value  of  cumulative  normal  distribution 

EkS 

ks 

fuel-to-air  mass  ratio  at  stoichiometric 
condi t ions 

EK1(1) 

(K 1 )  i 

Ratio  of  forward  reaction  rate  constants 
(see  Volume  2,  Section  2  or  Ref3  ) 

EK2 ( 1 } 

(K2)i 

Ratio  of  forward  reaction  rate  constants 
(see  Volume  2,  Section  2  or  Ref  3  ) 

FF(1) 

Fi 

Mixture  ratio 

FNOXP 

(N0o) 

NO  formed  in  the  flame  front 

ppm 

PHI  P 

h 

Mean  primary  zone  equivalence  ratio 
accounting  for  the  inefficiency  of  the 
primary  zone  combustion 

PPP 

P 

Operating  pressure 

atm 

RHO 

Ci 

Density  of  combustion  products  for  an 
element 

gm/cm^ 

RR(J) 

*X 

Radius  of  combustor  liner  if  canannular 
configuration;  equivalent  radius  of 
combustor  liner  if  annular  conr iguration 

i  n',  cm 

R1(0 

(Mi 

Forward  reaction  rate  for  the  first 
kinetic  reaction  (see  Volume  2,  Section 

2  or  Ref  3 ) 

gm-mo  1  e. 

R6(0 

(Mi 

Forward  reaction  rate  for  the  sixth 
kinetic  reaction  (see  Volume  2,  Section 

2  or  Ref  3 ) 

gm-mo  1  ej 

S 

So 

Degree  of  mixedness  in  the  primary  zone 

VP 

vp 

Vo'ume  of  the  primary  zone 

i  ;  cm- 

XEND 

XENO 

Length  of  intermediate  zone  and  dilute 
zone  (combined) 

in;  cm 

XL 

xL 

Length  of  intermediate  zone 

in;  cm 

XX  (J) 

X 

Axial  position  in  the  combusror 

in;  cm 

-sec 


-sec 
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Fortran 

Symbol 

Svmbol 

Descr i ot ion 

Uni  ts 

ZP(K) 

ZP 

Limit  of  integration  of  cumulative  normal 
distribution 

Nomenclature  for  COMMON/ OUT 1/ 

Fortran 

Svmbol 

Symbol 

Oescr i ot ion 

Uni  ts 

AVCH2D 

.t. 

[CH2^ 

Average  equilibrium  concentrat ion  of 
unburned  hydrocarbons  exclusive  of  C^s)  and 
CO  at  a  given  axii.l  station  in  the  com¬ 
bustor 

gm/cc 

AVCH2F 

H  e 

Average  equi  1  ibrium  concentre of 
unburned  hydrocarbons  exdus  ve  -,f  C,  % 
and  CO  at  a  given  axial  station  in  the' 
combustor 

gm/1000  gm 
fuel  burned 

AVCH2G 

[cTT2]e 

Average  equilibrium  concentration  of 
unburned  hydrocarbons  exclusive  of  C^\ 
and  CO  at  a  given  axial  station  in  ’ 

the  combustor 

AVCH2P 

&«2?. 

Average  equilibrium  concentration  of  unburned 

hydrocarbons  exclusive  of  C<  \  and  CO  at  a 

given  axial  station  in  the  dombustor  '  ppm(vol/ 

AVECOD 

[col 

e 

Average  equilibrium  concentration  of  CO  at 
a  given  axial  station  in  the  combustor 

gm/cc 

AVECOF 

Average  equilibrium  concentration  of  CO  at 
a  given  axial  station  in  the  combustor 

gm/'lOOO  gm 
fuel  burned 

AVECGG 

Average  equilibrium  concentration  of  CO 
at  a  given  axial  station  in  the  combustor 

AVECOP 

Average  equilibrium  concentration  of  CO 
at  a  given  axial  station  in  the  combustor 

ppm(voi ) 

AVECSO 

Average  equilibrium  concentration  of  C ■  , 
at  a  given  axiai  station  in  the  combustor 

om/cc 

AVECSF 

PJe 

Average  equ i i i or i urn  concentrat :on  of  C;s) 
at  a  given  axial  station  in  thi  combustor 

gm/ 1 OoO  cm 
fuel  burned 

AVECSG 

Average  equilibrium  concentration  of  C,_^ 
at  a  'given  axial  station  in  the  combusior 
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Fortran 


Syaibo  1 

Symbol 

Description 

Uni  ts 

AVECSP 

Average  equilibrium  concentration  of  C(sj 
at  a  given  axial  station  in  the  combustor 

ppa(vol) 

Nomenclature  for  COMKON/OUT2/ 

Fortran 

Symbol 

Symbol 

Description 

Uni  ts 

AVENFU 

Wup 

Average  nitric  oxide  concentration  at 
prior  axial  station  in  the  combustor 

ga/1000  gm 
fuel  burned 

AVENOD 

[noI 

Average  nitric  oxide  concentration  at 
a  given  axial  station  in  the  combustor 

gm/cc 

AVENOF 

w 

Average  nitric  oxide  concentration  at 
a  given  axial  station  in  the  combustor 

gm/1000  gm 
fuel  burned 

AVENOG 

LFo] 

Average  nitric  oxide  concentration  at 
a  given  axial  station  in  the  combustor 

AVENCP 

w 

Average  nitric  oxide  concentration  at  a 
given  axial  station  in  the  combustor 

ppmfvol ) 

HAST 

Indicator 

ILAST  =  0  if  the  nitric  oxide  chemical 
reaction  is  not  frozen  at  a  given  axial 
position  in  the  combustor 

ILAST  =  1  if  the  nitric  oxide  chemical 
reaction  is  frozen  at  a  given  axial 
position  in  the  combustor 

RRO 

Vrr 

Mean  denrity  of  combustion  products  at  a 
given  axial  sta*‘on  in  the  combust"' 

gm/cc 

Nomanc lature  for  C0XK0N/0U73/ 

Fortran 

Svmbol 

Symbol 

Description 

Uni  ts 

AVET  7  Average  temperature  of  combustion  products 

at  a  given  axial  station  in  the  combustor  oeg  K 


F3ARD  F  Kean  mixture  ratio  at  a  given  axial  station 

in  the  combustor 


KAX 


Subscript  of  mass  element  with  highest 
equivalence  ratio 


IftAX 


I 


Fortran 
Symbo 1 

INDiC 


LEN 

NQ(  I ) 
PH  I  BAR 

RHCBAR 

TAUBAR 

TAliD !  L 

TALilNT 

VELOC 

XO 

XU 

Fortran 

Symbol 

A1RD 
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Symbol 

Descriotion 

Units 

indicator 

IN01C  =  1  for  primary  zone 

INDiC  =  2  for  intermediate  zone  type 
calculation 

INDiC  =  3  fo*  dilution  zone  type  calcula¬ 
tion 

• 

indicator 

LEN  =  0  if  intermediate  zone  calculations 
end  at  Xi 

tm 

LEN  =1  if  intermediate  zone  calculations 

at  Xp.,- 

end 

DiOjl 

Nitric  oxide  concentration  for  an  element  i 
the  d'Stribution  function 

of 

$ 

Mian  equivalence  ratio  at  a  given  axial  station 
in  the  combustor  ' 

l 

Mean  density  of  combustion,  products  e:  a 
given  axial  station  in  the  combustor 

gm/cc 

1 

Mean  residence  time  in  the  combustor  at 
a  given  axial  station 

sec 

%‘L 

Mean  residence  time  in  the  combustor 
dilution  zone 

sec 

*!NT 

Mean  residence  time  in  the  combustor 
intermediate  zone 

sec 

V 

Velocity  of  combustion  products  at  a 
given  axial  station  in  the  combustor 

cm/ s  ec 

O 

X 

Axial  position  (downstream)  in  the 
combustor 

cm 

xu 

Axial  position  (upstream)  in  the  combustor 

cm 

Nomenclature  for  COMMON/ OUTA/ 

Symbol 

Description 

Uni  ts 

a 

X 

0 

Airflow  at  a  given  axial  station  in  the 
combustor 

gm/sec 

1 


5S 


I 


Fortran 

Symbol 

3 

Symbol 

Description 

Units 

ANO 

^AN 

Average  nitric  oxide  concentration  at 
a  given  axial  station  in  the  combustor 

m 

0. 

Measure  of  the  round-off  error  in  the 
Runge-Kutta  integration  routine  at  a 
given  axial  station  in  the  combustor 

AREAD 

Aiv 

*D 

Cross-sectional  area  of  combustor  at  a 
given  axial  station  in  the  combustor 

2 

cm 

ASLOPE 

Rate  of  change  of  airflow  rate  in  the 
combustor  liner  with  axial  position  at 
a  given  axial  station  in  the  combustor 

gm/sec-cm 

AVEKW  ' 

MW 

i 

Average  molecular  weight,  of  reaction 
products  at  a  given  axial  station  in 
the  cbmbustor 

gm/ gm-mo 1 < 

CONSNO(l) 

0) 

r*i 

z, 
i — i 

Nitric  oxide  equilibrium  concentration 
for  an  element  i  of  the  distribution 
function 

DDM(!) 

(Sh,)0 

Elemental  mass  flow  rate  at  the  down¬ 
stream  limit  of  integration 

gm/sec 

DELMD(l) 

Un,>„ 

Elemental  mass  flow  rate  at  the  down¬ 
stream  limit  of  integration 

gm/sec 

OlFNO(l) 

Difference  in  NO  concentrations  for 
successive  iterations  for  an  element  i 
of  the  distribution  function 

DMDDA(I) 

(S*AJi 

Elemental  mass  flow  of  gases  into  control 
volume  due  tc  mixing  of  the  dilution  air 
with  previously  mixed  gases 

gm/sec-cm 

DMDDM(I) 

Elemental  mass  flow  of  gases  into  control 
volume  due  to  mixing  action  of  gases  already 
:  within  the  combustion  liner  gm/sec-cm 

= DMDDP(l) 

(Sm')j 

Total  elemental  mass  flow  of  gases  into 
control  volume  due  to  mixing 

gm/sec-cm 

.DMDDPP(l ) 

(Sri") . 

Total  elemental  mass  flow  of  gases  out  of 
control  volume  due  to  mixing 

gm/ sec- cm 

DMFFED 

*Mfed 

Total  mass  flow  of  fuel  fed  to  the  com¬ 
bustor 

gm/sec 
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Fortran 

Symbol 


Symbol 


Description 


Units 


DMFT 

(MfL 

*D 

Total  mass  flow  of  combusted  fuel  at  a 
given  axial  station  in  the  combustor 

gm/sec 

DMFUD 

<Afu>X0 

Total  mass  flow  of  unburned  fuel  at  a 
given  axial  station  in  the  combustor 

gm/sec 

DMFUO 

Total  mass  flow  of  unburned  fuel  at  the 
primary  zone  exit 

gm/sec 

Ed) 

E. 

i 

Proportionality  factor  between  mass  flow 
rate  out  of  an  element  i  due  to  mixing  and 
the  total  mass  flowing  into  it 

-1 

cm 

EKKD 

kd 

Proportionality  factor  between  mass  flow 
rate  out  of  an  element  due  to  mixing  and 
the  totalmass  flowing  into  it 

-1 

cm 

FB(I) 

CO 

Boundaries  between  which  each  mixture  ratio 
value  applies 

FPRIME(l) 

(F->i 

Mixture  ratio  at  entrance  to  elemental  control 
volume  i 

NOEQXD 

^jx 

ad 

Mass  average  nitric  oxide  equilibrium  concentra¬ 
tion  at  a  given  axial  station  in  the  combustor 

NOP(I) 

m, 

Nitric  oxide  concentration  of  the  mass  flowing 
into  an  elemental  control  volume  due  to  mixing 
at  a  given  axial  station  in  the  combustor 

NOZERO (l ) 

Indicator 

NOZERO  =  0  if  chemical  rate  of  production 
NO  i.n  an  element  i  is  finite 

NOZERO  =1  if  chemical  rate  of  product  of 
in  an  element  is  zero 

of 

NO 

RD0T(1) 

* 

R. 

i 

Elemental  rate  of  change  of  unburned  fuel  wi 
axial  station  in  the  combustor 

th 

gm/sec- 

RSUBX 

Rx 

D 

Combustor  radius  at  a  given  axial  station 
in  the  combustor 

cm 

SIG 

<ST 

Standard  deviation  of  the  distribution 
function  at  a  given  axial  station  in 
the  combustor 

SIGZER 

<^T 

Standard  deviation  of  the  distribution  function 
in  the  primary  zone  of  the  combustor 
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Fortran 

Symbol 

S  LOPE ( 1 ) 

Symbol 

psail 

L  3lX  j xs 

SUEA(l) 

TSLOPE 

na. 

UDM(l) 

(8m.) 

*  u 

Fortran 

Symbol 

MSTARD 

Symbol 

* 

md 

MSTARU 

"u 

DILL 

<v  V 

REAT 

^ react 

Description  Units 

Rate  of  change  of  elemental  mass  flow  rate 

with  axial  position  at  a  given  axial  station 

in  the  combustor  gm/sec-cm 

Difference  in  NO  concentrations  for  suc¬ 
cessive  iterations  for  an  element  i  of  the 
distribution  function 

Rate  of  change  of  total  mass  flow  rate  with 
axial  position  at  a  given  axial  station  in 
the  combustor 

Elemental  mass  flow  rate  at  the  upstream 
limit  of  integration 

Nomenclature  for  COMMON  /0UT5/ 

Description 


Total  mass  flow  at  downstream  limit  of 
integration  ‘ 

Total  mass  flow  at  upstream  limit  of 
integration 

Rate  of  change  of  NO  concentration  with 
axial  position  in  'he  combustor  dilution 
zone  due  to  air  dilution 

Rate  of  change  of  elemental  NO  concentra¬ 
tion  with  axial  position  in  the  combustor 
due  to  chemical  reaction 


gm/sec-cm 


gm/sec 


Uni  ts 


gm/sec 


gm/sec 


-1 

cm 


-1 

cm 
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APPENDIX  III  -  MAIN  ROUTINE  GASNOX 

The  principal  function  of  the  main  routine  is  to  control  the 
logic  of  the  calculation  procedure  for  the  prediction  of  the  nitric 
oxide  emissions  from  gas  turbine  combustors.  In  addition,  the  main 
routine  reads  and  writes  the  input  data,  sets  certain  values,  and 
performs  many  related  minor  calculations. 

The  main  routine  calls  Subroutines  PRIMRY,  ZIN'TER,  and  DILUTE. 


The  external  input  required  by 

the  main  routine  consists  of: 

ANNR 

ANR 

APR 

ARR 

ATT 

AXX 

BC0N1 

BC0N2 

BC0N6 

BETA 

CH2 

EKS 

EKl 

EK2 

EQUIV 

ERAT 

FF 

IDATA 

IN 

KASE 

PHi 

PHIP 

PPP 

RHO 

Rl 

R6 

S 

SET 

TAUBAR 

TOTAIR 

VP 

XEND 

XL 

The  externa 

I  output  provided  by  the  main  routine  consists  of 

ANNR 

ANR 

APR 

ARR 

ATT 

AXX 

BCONl 

BC0N2 

BC0N6 

BETA 

CH2 

CUMDIS 

EKS 

EKl 

EK2 

EQUIV 

ERAT 

FF 

NOZERO 

Phi 

PH  1 P 

PPP 

RHO 

Rl 

R6 

S 

SET 

TAUBAR 

T0TA1R 

XEND 

XL 

VP 

ZP 

Addi tional 

Fortran  Nomenclature 

The  following  table  gives 

the  Fortran  nomenclature  for 

those 

symbols  in 

the  main  routine  which  are 

not  part  of  COMMON.  S 

i  ngly 

ai.d  doubly  subscripted  arrays 

are  indi 

cated  by  their  respect 

ive 

i  ndices : 

I  -  General  index  of  descriptive  data 

IJ  -  Incremental  axial  station  index  for  combustor  air 

J  -  Element  index 


Fortran 

Symbol 

Svmbol 

Description 

Uni  ts 

AAR(IJ) 

<v 

.X 

Total  mass  of  airflow  into  combustor 
liner  at  position  X  (cumulative) 

Ib/sec 

ANNR(IJ) 

\ 

Outer  radius  of  liner  at  position  X  ; 
applies  only  for  annular  configuration 

in 

AWR(IJ) 

\ 

Inner  radius  of  liner  at  position  X.; 
applies  only  for  annular  configuration 

in 

APR(IJ) 

( \  h 

Per  cent  of  total  mass  of  airflow  into 
combustor  liner  at  position  X  (cumulative) 

ARR(IJ) 

\ 

Radius  of  liner  at  position  X  *»  applies 
only  for  canannular  configuration 

i  n 

A  XX 

X 

Axial  position  in  the  combustor 

i  n 

DELAIR 

amair 

Combustor  air  scaling  factor 

Ib/sec 

DEX 

aX 

Combustor  length 

in 

EQU1V 

K 

Hass  mean  equivalence  ratio  in  the 
primary  zone  (before  fuel  burns) 

ERAT 

Erat 

Variable  for  varying  j^p  parametrically 
yet  maintaining  constant  air-to-fuel 
ratio  in  the  combustor 

1DATA 

Number  of  sets  of  kinetic,  thermodynamic, 
and  equilibrium  data  and  combustor  inlet 
conditions 

IN 

Number  of  sets  of  combustor  dimensions, 
operating  conditions,  and  primary  zone 
mixedness  parameter 

KASE 

Number  of  sets  of  airflow  distribution  data 

PHI (J) 

Equivalence  ratio  of  an  element  j 

SET(l) 

Combustor  descriptive  data 

TOTAIR 

Total  mass  of  air  fed  into  the  combustor 
liner 

Ib/sec 
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Analysis  Procedure 


The  step-by-step  procedure  of  the  main  routine  is  given  below. 
The  Fortran  listing  of  the  routine  is  presented  at  the  conclusion 
of  the  step-by-step  procedure. 

1.  Read  the  input  kinetic,  thermodynamic.,  and  equilibrium 
data  and  the  combustor  inlet  conditions  for  the  case. 

2.  Set  the  values  of  certain  parameters. 

3.  Read  the  input  airflow  distribution  data. 

Step  4  is  performed  only  if  the  combustor  is  an  annular  con¬ 
figuration. 

4.  Calculate  the  equivalent  can  radii  as: 

rx  =  K0>  ”  v? 

5.  Read  the  inpjt  combustor  dimensions,  operating  conditions, 
and  primary  zcne  mixing  parameter. 

6.  Convert  the  percentage  airflow  data  to  mass  flow  for  each 
specified  axial  station  by  the  relationship: 

<Vx  ’  \h*  V'00-0 

7.  Calculate  $  as 

P  0P= 

8.  Calculated  as: 

P  _  —  - 

dp  — 

9.  Set  the  values  of  certain  parameters  and  constants. 

10.  Write  the  heading  for  the  airflow  distribution  data  for  the 


11.  Calculate  the  total  mass  of  airflow  into  the  combustor  liner 
for  each  specified  axial  station  correcting  for  the  effect 
of  E 

foi 

12.  Convert  the  units  of  the  airflow  distribution  data  to  the 
metric  system. 

13-  Write  the  input  data. 

14.  Convert  the  units  of  the  combustor  dimensions  to  the  metric 
system. 

15.  Using  Subroutine  PR1MRY,  calculate  the  primary  zone  exit 
conditions. 
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16.  Set  certain  indicators. 

Step  17  is  performed  only  if  =  0. 

17.  60  to  step  24. 

Step  18  is  performed  only  if  S  ®  0. 

18.  Go  to  step  23. 

19.  If  Xrim<X.  ,  reset  certain  indicators. 

END  L 

20.  Using  Subroutine  Z1NTER,  perform  the  intermediate  zone 
calculations. 

Step  21  is  performed  only  if  the  chemical  rate  of  formation  of 

nitric  oxide  is  frozen  in  the  intermediate  zone. 

21.  Go  to  step  23. 

Step  22  is  performed  only  if 

22.  Go  to  step  24. 

23.  Using  Subroutine  DILUTE,  perform  the  dilution  zone 
calculations. 

24.  if  this  is  the  last  set  of  combustor  dimensions,  operating 
conditions,  and  primary  zone  mixing  parameter  for  the  given 
airflow  distribution,  continue  to  step  25-  If  not,  return 
to  step  5- 

25.  if  this  is  the  last  set  of  combustor  airflow  distribution 
data  for  the  given  kinetic,  thermodynamic,  and  equilibrium 
data  and  combustor  inlet  conditions,  continue  to  step  26- 
If  net,  return  to  step  3. 

26.  if  this  is  the  last  set  of  kinetic,  thermodynamic,  and 
equilibrium  data  and  combustor  inlet  conditions,  continue 
to  step  27.  If  not,  return  to  step  1. 

27.  Stop. 
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PROGRAM  GASNOX ( INPUT » OUTPUT »TAP£5=INPUT »  TAPE6=0UTPUT)  SAS*0000 

DIMENSION  SET (25) *PHI (50) • AAR(5<)) »AXX (BO > »APR(50) »ARR(50) *ANR(50) *3AS*n0l0 
1ANNR(50)  3aS«0020 

C0MM0N/0ATA1/AIR(50) ,RR(50) »XX(50) ,FF(50) tBCONl (50) .3C0N2(50) ,CH2(GaS*0030 
150) »ZP (70) «CUhDIS(70) *VP»RHO(50) »8COn6(50) »ATT(50) *POP*Fn0XP»R1 (50oAS*0040 
2) .R6‘50) »EKl(5o) *E><2(50)  »A2*A3*XL»CN.BETA.S*PHIP.EKS.XEND»A1  3aS*o050 

COMHON/oUTI/AVECSG. AVECOG. AVCH2G* AVECSP. AVECOP. AVCH2P. AVECSD. AVEC03aS*0060 
1D,AVCH2D*AV£CSF«AVEC0F*AVCH2F  SaS*0070 

common/out2/avenog<avenod.avenop*avenof.avenfu»rro»ilast  SaS*0080 

COMMON/oUT3/INDIC*NO(50) ,aV£T  rAUBAR.RHOBAR. PHIBaR. IMAX,XD«  3aS*0090 

lFBARU*XUtLEN,TAl’lNT»TAUDlL*VELOC  3aS*0100 

_ ..  .  A..  ..  i  t.A  .  _  .  •  MO.  ..r\  M  .  r*i  Aftr  n  II  XI  I A  <««  rtf\r*  /  »-  A  »  I  1  1  A 


2»K3UOA,ii(,taibZt«*avc.r,>"»UMyu«i50j  mnuunisui  lunyurovi  »u nuurr 

3»RImE150) *NOEQXO»ANO»AQQ,oIFNO(50) .NOZERO (50) » ROOT (50) *E<50) 
C0MM0N/0UT5/HSTARD .HSTARU 


SaS*0140 

SAS*0150 


50. 3. 15, 3. 20.3. 25.3. 30*3. 35. 3. 40*3. 45/  3AS*021C 

DATA (CUmDIS (*_) , L=l»70)/0.5000. 0.5199. 0.5398. 0.5596. 0.5793*0. 5987. 0GaS*0220 
1 -*179i n. 6368. n_ 6554.0.6736. 0.691 5. 0.7088.0.7257,0.7422, 0.7580 »0.773AS*0' 30 


4554, 0.9599* 0.9641, 0.96 1 8. 0.9713.0, 5/ 44. 0. 9772.. 9798, 0.9821,0. 9842 joAb^OZbO 
5, 986l» 0.9878, 0.9893* 0.9906. 0. 9918*0. 9929. 0.9933. 0.9946.0. 9953. 0.99SAS*0270 
660 *0.9965, 0.9970 .0.9974, 0.9978, 0.9981 .0,9984, 0.9987* 0.9969 *0.9990*545*0280 
70.9992,0.9993*0.9994.0.9995*0.9996*0.9997*0.9997/  345*0270 

C*««»  SAS*0300 

C*«**  READ  IN  AND  WRITE  OUT  THE  REQUIRED  DATA  SaS*0310 

C****  GAS50320 

READ(5,50)  IDATA  SaS*0330 

DO  925  IIK  =1, IDATA  GaS*0340 

READ (5.400) (SET(I) .1=1*15) .PPP.SET(16) »SET(17) .SET (18) .SET (19) »EKSGaS*o35G 
400  FORHAT (12A6/2A6. A2.E15.8.3A6. A4.E15.B)  3AS*0360 

DO  600  J  =  1,35  SAS«o370 

RE AD ( 5  *  450 ) FF ( J) »PHI(J) .Rh0(J) »aTT(J) .BC0N61J) .BC0N2(J) .BCONl(J) .CSaS*o380 
1H2(J) *R1 (J) ,R6(J) *EK1 (U) »£K2 ( J)  SAS*0390 

NOZER0(J)=0  GaS»0400 

IF(Ho(j)  .EQ.O.O.AND.RHJ)  .EQ.0.0)  N0ZER0(J)*1  GaS*0410 

600  CONTINUE  GAS°C420 

450  FORMAT C6E12. 5)  5aS*0430 

read (5.50)  kase  3as*o44c 

50  FORMAT ( 16)  SAS*045G 

DO  900  II  =  1 ,KAS£  3aS*0460 

DO  300  IJ  =1.11  3aS*0470 

RE*0(5.250)  AXX(IJ) .APR(U) »ARR(IJ) *aNR(IJ) ,ANNR(1J)  SaS*04SQ 

XX(IJ)  =  AXX(IJ)  545*0490 

RR ( I J)  =  ARR(IJ)  SaS°o500 

IF(RR(1J>. EQ.0.0)  RR(1J)  =  SQRT(ANNR(IJ)**2.0-ANR(IJ)**2.0)  3aS*o510 

300  CONTINUE  GaS«0520 

250  FORkAT (5E12.5)  3AS*c-530 

READ (6,200)  IN  SaS*0540 

200  P0RmAT(I6)  Sa5*0=50 

DO  325  K  =1*IN  3aS*0560 

R£AD(5,4lO)  VP, XL- XEN0.E0UIV,BETA»T0TAIR.S.ERAT,TAUBAR  SaS*0570 

DO  425  IJ=1,11  3aS*o580 

AAR(IJ)  =  APR(IJ)*TOTAIR/100.0  3AS*c590 


1H2(J) *R1 (J) ,R6(J) .EK1 (U) »£K2 ( J) 

NOZERO (J)=o 

IF (HP ( J) .EQ.0.0. AND. R1 (J) .EQ.0.0)  N0ZER0(J)*1 
600  CONTINUE 
450  FORMAT (6E12. 5) 
read (5.50)  kase 
50  FORMAT ( 16) 

DO  900  II  =  1,KAS£ 

DO  300  IJ  =1.11 

R£AO (5.250)  AXX(IJ) »APR(IJ) »ARR(IJ) *aNR(IJ) ,  ANMR ( 1 J) 

XX ( I J)  =  AXX(IJ) 

RR(IJ)  =  ARR(IJ) 

IF(RR(IJ).  EQ.0.0)  RR(1J)  =  SQRT (ANNR ( I J) **2. 0-ANR ( I J) **2.0) 
300  CONTINUE 
250  FORMAT (5E12.5) 

READ (6,200)  IN 
200  FORMAT (16) 

DO  325  k  =1,IN 

READ (5,4l0)  VP, XL- XEND.EOUl V,BETA»T0TAIR.S.ERAT, TAUBAR 
DO  425  IJ=l,ll 

AAR(IJ)  =  APR(IJ)*TOTAIR/100.0 
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425  CONTINUE 

PHIP  =  £GUIV«BETA 

PHlP=PHIPoERAT 

FNOXP  =  0.0 

CN  =  6.0 

A1  =  0.5 

A2  =  0.5 

A3  =  1.0 

410  F0*mATi6E12.5/6E12.5) 

DSLaIK=AAR(1)*(1.0-1.0/£RAT) 

DEX=XA(11)-XXU) 

wRIT£(6.100> 

WRITE (6.775) 

775  FORMAT (///49X.34HC0MBUST0R  AIR  FLOW  CHARACTERISTICS///) 
WRITE (6.780) 

780  FORMAT (64X.3HCAN.21X.7HANNULAR) 

WRITE (6.785) 


3AS°0600 

6aS°0610 

GaS*062O 

SaS*063O 

GAS*0o40 

gas^csso 

GaS*0660 

SAS*0670 

GAS«0680 

GaS«0&90 

3aS*0700 

GAS*0710 

3AS*0720 

GaS*0730 

3AS*0740 

SaS*g750 

5aS*0760 


785  FORMAT (28X.8HDISTANCE.8X.10HPERCENTA5E.9X.6HRADIUS.8X. 12HINNER  RADSaS*077o 

1 IUS.SX, 12H0U7ER  RAOIUS)  GaS*0780 

786  FORMAT (45X.8HAIR  FLOW)  3aS«0790 

WRITE (6.786)  SaS*0800 

sRITE (6.790)  5aS«0810 

790  FORMAT (29X.6HINCHES.28X.6HINCHES.11X.6HINCHES.11X.6HINCHES///)  GaS«»o820 
DO  350  IJsl.ll  3AS*0830 

AIR(IJ)=aaR(IJ)-OELAIR<»(XX(11)-XX(IJ))/D£X  3aS*o84o 

WRITE (6.825)  AXX(IJ)  .APRdJ)  »AR«(IJ)  .ANR(IJ)  .ANNR(IJ)  GaS*0o50 

825  FORMAT (26X.5 (E12.5.5X) )  SaS*0860 

AIR { I J)  =  AIR(IJ)*454«  3aS«0870 

IF(K.GT.l)  GO  TO  350  SAS*0B80 

XX(IJ)  =  XX(IJ)*2.54  3AS*0890 

RRtlJ)  =  RR(IJ)*2.54  GaSc0900 

350  CONTINUE  GAS*o9lO 

WHITE (6.500)  K  SaS*0920 

500  FORMAT {///58X.I1HCASE  NO.  *  .16////)  3aS*o930 

WHITE (6.550)  5AS«0940 

550  F0RmaT(///48X.35HCUMJLATIVE  NORMAL  DISTRIBUTION  DATA////)  GaS«0950 

wRITE(6,ll5)  3aS«o960 

115  FORMAT{i4X.2HZP,3X,6HCUrtDlS*5X,2HZP,2X.6HCUMDIS.5X,2HZP»3X,6HCUMOIGAS*097O 
lS.5X.2HZP.3X.6HCUMDI5»5X.2HZp.3X.6HCUMDlS.5X,2rtZP,3X,6HCUMDIS»5X.23AS®0980 
2MZP.3X.6HCUMDIS///)  3AS*0990 

DO  1 20  L=l»10  SaS°1 000 

WR1TE(6,110)  ZP(L) .CUMOIS(L) .ZP(L*10) .CUMDIS (L*l0) .ZP(L*20) ,CUMD1SGaS«101o 
1 (L*20) *2P (L*30) »CUMDIS(L*30) .ZP(L*40) .CUMDIS (L*40) »ZP(L*50) .CUMDIS3aS«1027 
2 (L*50) »ZP(L*60) .CUMDIS (L*60)  SAS*103Q 

110  FORMA] (12X,7(F4.2.3X,F6.4,3X) )  Sa5°1O40 

120  CONTINUE  SaS«1050 

WRITE (6. 100)  GAS*1050 

WRITE(6.650)  SaS^ 1 070 

650  FORMAT (///58X.36HEQUILIBRI JM  DATA///)  GaS*10R0 

wHITE (6, 675) (SET (I) .1=1.15) *PP?.SET(lo) .SET (17) .SET (18) .SET (19) »EK3aSc1090 
IS  SAS«il00 

675  FORMAT  (1X,14A6,A2»E15.8/33X.3A6,A4,E15.8///)  SaS«U10 

WHITE  »  6.660)  3ASal 120 

680  FORMA| (1X.123HTHE  FOLLOWING  DATA  TABLE  CONTAINS  THE  THERMODYNAMIC  3aS°H30 

1  PROPERTIES. KINETIC  RATE  CONSTANTS. AND  EQUILIBRIUM  COMPOSITIONS  F0R3aS»11A0 

2  EACR/1X.124HPRESCRI3E0  EQUIVALENCE  RATIO.  FOR  EACH  ELEMENT  ThESE3aS*i150 

3  PROPERTIES  ARE.IN  ORDER  OF  PRINTING... MIXTURE  RATIO, EQUIVALENCE  RSaS^UsO 

4ATI0./1X.119H0ENSITY.A0IABATTC  Flame  TEMP£RATuRE,NO,CO»C(S) .AND  CHSaS*1170 
52(UNBURNED  HYDROCARBONS)  EQUILIBRIUM  MOLE  FSACTION.AND  THE  KINETICSaS»1 ISO 
6/1 X, 27hPARAM£TeRS  R1.H6.K1. AND  K2.//>  GAS*H90 
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wRITE(6t690)  GaS*1200 

690  FORMAT 124X,7HELEMENT/)  GaS«1210 

00  750  J  =1*35  GaS*1220 

WRITE (6*700)  J.FF(J) .PHIIJ) *RHO(J) *ATT(J) »BC0N6(J) »BC0N2(J) »8C0N1 (GaS«1230 
1J)  *CH2(j)  .Rlt-Jl  * R6  ( J)  *£K1  ( J)  *EK2(J)  SAS*l240 

700  F0^MATt26X,I2*3X*6E12.S/3lX»6El2.5)  GAS«l250 

750  CONTINUE  SAS*1260 

WRITE (6*100)  GAS*1270 

WRITE(6*850)  SAS*1280 

850  FORMAT <///51X,31HTHE  REST  OF  THE  INPUT  VARIABLES///)  GaS»1290 

WRITE(6.851)  VP  3AS*)300 

851  FORmaI U0X*34HTHE  VOLUME  OF  THE  PRIMARY  ZONE  IS  ,E12.5»7H  CU. IN.//3aS*1310 

1)  GAS«l320 

WRITE(6*852)  XL  SaS*1330 

852  FORMAT (10X.39HTHE  LENGTH  OF  THE  INTERMEDIATE  ZONE  IS  »Ei2.5*4H  IN.GASM340 

1//)  GAS«l350 

i»RITE(6«853)  XEND  GaS*1360 

853  FORMAT (10X*67HTH£  LENGTH  OF  THE  INTERMEDIATE  ZONE  ANO  DILUTION  Z0NSaS*13?0 

1E(C0M8INE0)  IS  *E12.5.4H  IN.//)  SAS*l380 

HRITE(6.854)  EQU1V  GAS*l390 

854  FORMAT (10X,43HTHE  MEAN  PRIMARY  ZONE  EQUIVALENCE'  RATIO  IS  »E12.5//) GaS*i400 

WRIT£(6»855)  BETA  3aS*1410 

855  FORMAT (10X.49HTHE  COMBUSTION  EFFICIENCY  IN  THE  PRIMARY  ZONE  IS  ,E16aS<»1420 

12.5//)  GaS*1430 

WRITE(6»856)  ToTAIR  GASo1440 

856  FORMAT (10X.48HTHE  TOTAL  MASS  OF  AIR  FED  INTO  THE  COMBUSTOR  IS  »E12SaS«1450 

1.5.9H  LB. /SEC.//)  SA$«14S0 

WRITE (6*857)  S  SaS*1470 

857  FORMAT {10X*27HTHE  DEGREE  OF  MIXEONESS  IS  .E12.5//)  SaS*1480 

»RIT£(6,858)  ERAT  GAS*1490 

858  format (10X,7HERAT  s  ,E12.5//)  GaS*i500 

WRIT£(6*859)  TAUBAR  3aS«1510 

859  FORMAT (10X.105HTHE  MEAN  PRIMARY  ZONE  RESIDENCE  TIME (ONLY  APPLIES  IGaS*1520 

IF  ThE  VOLUME  OF  THE  PRIMARY  ZONE  IS  ZERO  IN  INPUT)  IS  ,E12.5»5H  SEGaS*i530 
2C.)  GAS*1540 

VP  =  Vp«2, 54*2 .54*2 .54  SAS<>1550 

XL  =  Xl«2.54  GASo1560 

XENO  »  XEnD*2.54  SAS*l570 

100  FORmAT(IHI)  SAS«l580 

SaS«1590 

PERFORM  PRIMARY  ZONE  CALCULATIONS  GAS°1600 


C***» 

CALL  PRIMRY 

PERFORM  IkTERMEOIaTE  ZONE  CALCULATIONS 
LEN  =  0 

IF(XEND.EQ.O.O)  60  TO  1000 
IF(S.EQ.O.O)  go  To  950 
IFUENO.LT. XL)  LEN  =  1 
CALL  /INTER 

PERFORM  DILUTION  ZONE  CALCULATIONS 

IF(ILAST.EO.I)  GO  70  950 
IF(LEN.EQ.l)  GO  TO  1000 
950  CALL  DILUTE 
1000  CONTINUE 
325  CONTINUE 
900  CONTINUE 


SAS«1610 

GASal620 

SAS*1630 

5aS*i&4,0 

3AS°lb50 

SAS*1650 

3AS^l670 

3AS°1630 

GaS°1690 

6aS«1700 

SaS*171G 

SaS°1720 

GaS°i730 

GaS°1740 

gas°i 750 

3aS*1760 

GaS<*1770 

GaS°1730 

SAS«1790 


925  CONTINUE 
STOP 
ENO 
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m 


& 


SaS*1600 

SAS°lB10 

GAS«1B20 
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SS- 

i 


APPENDIX  IV  -  SUBROUTINE  PRIMRY 

The  function  of  Subroutine  PRIMRY  is  to  calculate  the  nitric 
oxide  emissions  at  the  primary  zone  exit  of  a  gas  turbine  combustor. 

Subroutine  PRIMRY  is  called  by  the  main  routine  (GASNOX);  it, 
in  turn,  calls  Subroutines  PRCALC,  ZMASS,  and  PRINTS.  The  subroutine 
does  not  require  external  input  but  does  provide  external  output. 
Internal  input  and  output  are  transmitted  through  COMMON.  The  internal 
input  consists  of: 


ATT 

3COM 

BC0N2 

BC0N6 

CH2 

FNOXP 

PH  IP 

PPP 

RHO 

S 

TAUBAR 

VP 

The  internal 

output  consists 

of: 

ANO 

AVCH2& 

AVCH2F 

AVCH2G 

AVCH2P 

AVECOD 

AVECOF 

AVECOG 

AVECOP 

AVECSD 

AVECSF 

AVECSG 

AVECSP 

AVEMW 

AVENOD 

AVENOF 

AVENOG 

AVENOP 

AVET 

C0NGN0 

FNOXG 

INDIC 

PH  I  BAR 

RHOBAR 

TAUBAR 

VELOC 

XD 

XU 

The  external 

output  consists 

of: 

FELD 

I 

OQ.NO 

QSUMNO 

Additional  Fortran  Nomenclature 

The  following  table  gives  the  Fortran  nomenclature  for  those 
symbols  used  in  Subroutine  PRIMRY  which  are  not  included  in  COMMON. 


M 

i: 


rortran 

Symbol 

CH2AV 


COAV 


CSAV 


Symbol 

(Clip 


(CO). 


(C(s)}fc 


Descr iot ion 


Average  equilibrium  mole  fraction  of  un¬ 
burned  hydrocarbons  exclusive  of  C,  .and 
CO  in  the  primary  zone  's' 

Average  equilibrium  mole  fraction  of  CO 
in  the  primary  zone 

Average  equilibrium  mole  fraction  of  C.  . 
in  the  primary  zone 


Units 


7? 


Fortran 


Symbol 

Symbol 

Descriotion 

Units 

DELX 

Sx 

Increment  of  the  combustor  length  across 
which  the  solution  is  generated 

cm 

FELD  ( 1 ) 

CfracL 

1 

Element  i  mass  fraction 

FNOXG 

Coj 

NO  formed  in  the  flame  front  (mass  fraction) 

1 

i 

Index  of  the  element 

NPRINT 

Indicator 

NPRINT  =  0  if  intermediate  output  is  not 
requested  by  the  user 

NPRINT  =1  if  intermediate  output  is 
requested  by  the  user 

QQNO(I) 

LNOj 

Nitric  oxide  concentration  in  the  element 
i 

ppm(vol ) 

QSUMNO(l) 

The  cumulative  sum  of  the  NO  formed  up  to 
and  including  the  element  i 

lb/sec 

SUMCH1 

Sum  of  the  elemental  mass  flow  rates  times 
their  respective  unburned  hydrocarbon 
(exclusive  of  CO  and  C,  \)  equilibrium 
mole  fractions  ' 

gm/sec 

SUHCOI 

Sum  of  the  elemental  mass  flow  rates  :imes 
their  respective  CO  equilibrium  mole  frac¬ 
tions 

gm/sec 

SUKCS! 

Sum.  of  the  elemental  mass  flow  rates  times 
their  respective  C,  »  eaui 1 ib.  ium  mole 
fractions  ' 

gm/sec 

SUMNOi 

■g_NO-*n 

Sum  of  the  elemental  mass  flaw  rates  times 
their  respective  NO  mass  fractions 

cm/ sec 

SUKT1 

£.T-»- n 

Sum  of  the  elemental  mass  flaw  rates  times 
their  respective  adiabatic  flame  tempera¬ 
tures 

gm-d.:g  K/sec 

Ar.c.  lysis 

Procedure 

The  step-by-step  procedure  of  Subroutine  PRiMRY  is  given  below 
The  Fortran  listing  of  the  subroutine  is  presented  at  the  conclusion  of 
the  step-by-step  procedure. 
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1.  Convert  (NO  )  to  £noJ  by 

[noJ  =  <N0o)*10"6*^§4 

2.  Set  the  values  of  X^,  X^,  and  AX  as: 

XU  =  °‘0 
XD  =  0.0 

AX  *  0.0 

3.  Using  Subroutine  ZMASS,  calculate  the  mass  in  each  element, 
the  mean  mixture  ratio,  the  airflow,  and  the  total  mass 

f  lav. 

4.  Calculate  P  a$: 


Step  5  is  performed  if  Vp  t  0.0 

5.  Go  to  step  8. 

6.  Calculate  V  as: 

P 


o 


V-,  -  =r  *  t\ 


7.  ‘  Go  to  step  9. 

8.  Calculate  ’T  3s: 

*?  = 

9.  Calculate  £nQ.][  as: 

bt*  ^N!0;.)e*3O. 

D^Je.  *  ~T*  *T-.9^05V? 


S**  O 


V10 


f moTL  ~  — 

‘•/’•VAX1 

10.  Using  Subroutine  PRCALC,  calculate  the  NO  concentration  in 
each  element  in  the  distribution. 

Step  11  is  performed  only  if  intermediate  output  is  requested 
by  the  user. 

11.  Write  the  heading  identifying  the  primary  zone- elemental 
exit  conditions. 
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*2.  For  each-  element  in  which 

£  NO  -rr^  £ 

-£T-m  j  and 

£  fOO-m 
£ 

£  CO-ffl 

;  •£  oh  -  m 

±_  ~r~  m  ■ 

?rdc)  ^ 


m.  is  non-zero,  calculate 

i 

CO  -  ;  -^.CH-n  t 

WJl  as: 

1&M4> 

i"  (.ccsLM^ 

c^i 

Mr*  (C-Wi^e  (.AfilOj, 

■  r  ~i  iwo, 

C,-« 

MO*  j  n* 


Steps  13-14  are  performed  only  if  intermediate  output  is 
requested  by.  the  user. 

13.  Convert  the  units  of  l*N0-m  from  gm/sec  to  Ib/sec. 

14.  Convert  the  units  of  [NO.^  from  mass  fraction  to 

ppm(vol)  -  - 


15.  Calculate  j[NGjj  ,  T,  and  MW  as: 

yjjs/oj  -  £M 0-<*>/w*p 

T  -  £T-  >n  J  n\'*D 
flMV  -  ^  j  p 

Steps  16-17  are  performed  only  if  intermediate  output  is 

requested  by  the  user.  , 

qm-mo I e 

16.  Convert  the  units  of  £nO-3  from  ppm(vol)  -  gm  to 

ppro(vot)* 

17.  For  each  element  in  the  distribution,  write  the  element 
mass  fraction,  the  nitric  oxide  concentration  {ppm-vol). 
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the  cumulative  sum  of  the  NO  formed  up  to  and  including 
the  element,  and  the  element  number. 

18.  Calculate  0  as 

0^0? 

19.  Calculate  V  as 

V  -  ^  *  AjX£> 

20.  Calculate  £.Noi,  LnO*]  ,  ^NO^jas: 

?  rTd\  s  frjo]  *  \oG *  Mvv  /^o.o 
r/s/o^j  *. 

[ktoI  -  dto] *K* iocc/c/n?)X£> 

21.  Calculate  (C/c\)  ,  (CO)  ,  and  (CHj  as: 

pi  e  e  z  e 

CQsOe.  x 

CCo)e  -  iz.CO~fA  /  AY^ 

(CHz^  -  ^ 

22.  Calculate  t  C(s^e»  F°Je>  *"d  IcT?2]  q  as; 


t  Cts))e*l2-  /  MW 

o^a . 

[“A.  - 

CchO^h/  mTv 

1#tei'(s)]  e  • 

\C0]e.  and{cH2]e 

as ; 

i  ' 

[ cT^&  *  lo4  *•  MW 

/I2- 

iaL  - 

[co]  » 

/as 

icrt2.  - 

(CH^  *  lo^  * 

/h 
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24.  Calculate  I_CO*]e>  andf  CH2*j  &  as; 

CQsxk  "  >  \ 

&L  =  ^ 

cade  *  L"  Je-  *  \ 


25. 


Calculate  [coj,,  and  ^CHjj  e  as: 

l  &4a  -  Mo  -  loco/Lm^ 

f  cqje  =  C  “It  fc  »*o  ■*  loo°/  (-Mtk, > 

j^Crt4e  =  CCH^e  «■  #5>  ‘  lOCo/CMfXj, 

Using  Subroutine  PRINTS,  write  the  output  for  the  primary 


zone. 


27.  Return. 
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SUBROUTINE  PRIMRY  PRl«0000 

Real  no  pri°ooio 

real  MSTARO.MSTAKU  PRI«0020 

DIMENSION  QQNO (50) .OSUMNO (50) .FELD (50)  PRI“0030 

COMMON/O AT A 1 /AIR <50) »RR(50) *XX(50) ,FF(50) tBCONl (50 > .BC0N2 (50 ) .CH2 < PRI*0040 
150) *ZP (70) ,CUM:-IS(70) »VP»RH0(50) t3C0N6(50) »ATT(50) .PPP.FNOxP.Rl (SoPRI*0050 
2) »R6 (50) »EK1 (50) »EK2(50) .a2. A3.XL.CN.BETA.S.PHIP.EKS.XEND.A1  ^1*0060 

COMMON/oUTl/AVECSG. AVECOG. AVCH2G.AVECSP. AVECOP. AVCH2P.AVECSD*AVECQPRI°0070 
ID#  AVCH2D*  aVECSF  * AVECOF» AVCH2F  ?RI*0080 

C0MM0N/0UT2/AVEN0G* AVENOOt AVENOP* AVENOF  .AVENFU.RRO.lLAST  ?RI*0090 

COMMON/OUT3/INOIC.NO(50) .AVET.TAU8aR.RH0BAR.PHI8AR.IMAX.XD.  PRl*OlOO 

lFBARDtXUtLEN*TAUlNT*TAUDlL*VELOC  ?Rl*OllO 

COMkON/oUTA/CONGNO (50) »DELMO(50>  jAREAD.ASLOPE.DMFUO.SLOPE (50) iTSLOPRI*0120 
1PE.nOP{50) .EKKD.DMFT.UDM (50) »DDM(50) ♦  FB(50) ,DMFUD.AlRD,DMFFEDpRI*0l3G 

2»RSU8X,siG*SIGZER*AVEMW,DMDDA(50) «DMUDM(50) *DM0DP(5D> *DMDDPP<50) *FPRI*0l40 


3PRIME(50) ♦NOEQXD»ANO»AQQ»DIFNO(50) »NOZ£RO (50) *  ROOT (50) »£<50> 

PRI*0150 

C0MM0N/0UT5/MSTARD*MS7ARU 

PRI°0160 

NPRlNT=i 

?RI«0l70 

1N0IC'=  1 

PRI°0180 

C®«®® 

PRI°0l90 

c***« 

CONVERT  FLAME  no  units  <note.,.mean  MW  taken  AS  28. 0) 

PRI°0200 

c®*®« 

PrI°0210 

FNOxG=FNOxP*1.0E-Q&® (30.0/28.0) 

pRl®0220 

c®*®« 

PRI®0230 

c®®«® 

CALCULATE  MASS  IN  EACH  ELEMENT 

PRI*0240 

c«®*# 

PRI*0250 

XU  =  0,0 

?RI®0260 

XD  a  0.0 

?RI®0270 

DELX  =0.0 

PRI*0280 

CALI  ZmaSS(DELX) 

PRI*0290 

WRITE (6. lOO) 

PRI«0300 

c***® 

?RI®031 0 

c®®** 

CALCULATE  AVERAGE  rho  and  tau 

pRl*0320 

c®®»® 

PRI°0330 

RHOHAR  a  0.0 

PRl®0340 

DO  1000  I  =  l.IMAX 

PRI*0350 

IF (S.EQ.O.O.AND.I.LT.IMAX)  go  TO  1000 

pRl®03{>0 

RkOSAR  =  RH08AR*RH0 ( I ) ®DELMD ( I ) /MSTARD 

PRI°0370 

1000 

CONTINUE 

PRI<0380 

IF(VP.NE.o.O)  GO  TO  1025 

PRI°0390 

yp=TAUBAR*MSTARD/RHOBAR 

PRI"0400 

GO  TO  1050 

?RI*0410 

1025 

TaU8AR= ( Vp*RHOBAR/MSTARD) 

291*0420 

1050 

CONTINUE 

?Rl*0430 

c««®* 

PRI"0440 

c**®® 

DO  NO  CALCULATIONS 

PRI°0450 

c*»*® 

?Rl*0450 

SUMNOI  a  o.O 

PRI®Q47G 

SUMTI  =  0.0 

pri^oaso 

SUMCSI  a  0.0 

PRI*04^0 

SUMcOI  a  o.O 

PRI®05uO 

SUMCHi  a  0.0 

?SI*0510 

DO  2000  I  =  l.IMAX 

?RI*0520 

IF(S.EQ.O.O.AND.I.LT.IMAX)  go  TO  2000 

pRl°0530 

COVGNO(I)  =  3CON6(I)«30.0/(RHO(I)®ATT(I)®82.057/P?P) 

PRI°0540 

2000 

CONTINUE 

PRI*055C 

CALL  PRCALC(FNOXG) 

PRI*0560 

IF(NPKINT.EQ.O)  GO  TO  2500 

PRI®0570 

WRITE (6.9987) 

?Rl*0580 

9987 

FORMAT (///.52X.28HPRIMARY  ZONE  EXIT  CONDITIONS) 

PRI«0590 
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WRITE (6*9988)  PRI*0600 

9988  rORMAl  {///,46X.4KMASS»9X»2HN0»8X»8HT0TAL  N0*7X» 7hELEm£NT>  PRI*0610 

WRITE  l6«9989)  ?RI*0620 

9989  FORMAT  (44X  • 8HFRACTI0N*5X»8rtPPM (VOL) ♦5X»6HLB/SEC»lQX*3HN0.*/>  PRI*0630 

2500  CONTINUE  PRI*0640 

DO  3000  I  =1*1  MAX  PRI*0650 


IFtOELMOd)  .EQ.O.O)  60  TO  3000 
SUMNOI  =  SUHNOI«NO(I)*OELHD(I) 

SUMCSI  =  SUMCSI*8C0N1 (I>*OELMD(I) 
SUMCOl  =  SUMCOI  ♦  8C0N2  { I )  tt0ELMD  ( I ) 
SU«CHl  =  SUMCHI*CH2(I)<tDELMD{I) 

SUMTI  =  SUMTI*aTT(I)«OELMDU> 

FELD (I)  =  DELMD(I)/HSTARD 
IF(NPRInT.EQ.O)  6C  TO  3000 
OSUmNO(I)  =  3UMNOT/454.0 
QONO(l)  -  NO (l)*l»OE* 06/30*0 
3000  CGNTINJE 

AVEnOG  =  SUMNOI/HSTARD 
AnO  =  AVENOG 
AVET  =  SUMTI/MSTARD 
AV£m«  =  RhOBAR»AVET*32.057/PPP 
IF(NPRINT.EQ.O)  GO  TO  3200 
DO  3100  I  =1  * IMAX 
OQNO(l)  =  QQNO(I)*AV£MW 
WHITE l6»9990)  FELDd)  *QQNO(I)  #QSUMN0( 
9990  F0HmAT(42X*3E12*5*7X»13) 

3100  CONTINUE 
3200  CONTINUE 

£4000 

c***»  CALCULATE  VELOCITY  AND  PHI3AR 
£«•«» 

PHIRAK  =  PHIP 

V'ELOC  a  MSTARD/(RHOBAR°AREAD) 
AVENOP=AVENOG*1.0E*06*AVEMW/30.0 
AVEnOD  =  aVENOG^RHOBAR 
AVEnOF  =  AVENOG*MSTARDnOOO^/DMFT 
CSAV  =  SUhCSI/MSTaRD 
COAV  =  SUMCOI/MSTARD 
CH2AV  a  SUMCHI/MSTARO 
AVEcSG  =  CSAV*12.0/AVEMW 
AVEcOG  =  COAV*2B.0/AVEMW 
AVCH2G  =  CH2AVO14.0/AVEMW 
AVECSP=AVECSG*1.0E*06»AVEMW/12.0 
AVECOP=AVECOG«1.0E*06*AVEMW/28.0 
AVCh2P=AVCH2G*1.0E*Q6*AVEMW/14.0 
AVtC^O  =  AVECS6*RH0BAR 
AVEqOO  =  aVECOG^RHOBAR 
AVCH20  =  AVCH2G*RH08AR 
AV£cSF=aVECSG*MST  ARD*1000 • O/DKFT 
AVECOF  =  AVECOG*MS7ARDa1000./DMFT 
AVCH2F  =  AVCH2G*MSTARO«1000»/DMFT 
CALL  PRINTS 
100  FORmAT(IHI) 

RETURN 

END 


PRI°0660 
PRI«0670 
?RI*0680 
PRIt'0690 
?RIC0700 
PRI*0710 
PRI°0720 
PRI*0730 
PRI*0740 
PRI°0750 
PRI*07&0 
PRI*0770 
?RI°0780 
PRI*0790 
PRI°0800 
PR.I*0810 
PRI* j32G 
PRI°0830 

),I  PRI°OBhO 

PRl*08F0 
PRI*CtJ60 
PRI»0870 
PRI*0880 
PRI° 0890 
PRI*0900 
?RI°0910 
PRI°0920 
PRI°0930 
PRl°0940 
PrI*0950 
PRI*0960 
PRI*0970 
PRI*0950 
PRI*0990 
PRI*1000 
PRI°1 0 1 0 
?RI*1020 
281*1030 
?RI*1040 
PRI *1 050 
PRI*1 060 
?RI*1G70 

Pal *1030 

PRI*1090 
PRI*1 100 
?RI°1 1 1 0 
PRI°1 120 
?RI°1 1 30 
?RI*1 140 
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APPENDIX  V  -  SUBROUTINE  Z INTER 

The  function  of  Subroutine  ZINTER  is  to  calculate  the  concentration 
of  nitric  oxide  at  specified  axial  stations,  and  at  the  exit,  of  the 
intermediate  zone  of  a  gas  turbine  combustor. 

Subroutine  ZINTER  is  called  by  the  main  routine  (6ASNG/);  it,  in 
turn,  calls  Subroutines  MINT,  CHECKK,  RUNKUT,  ZMASS,  and  PRINTS.  The 
subroutine  does  not  require  external  input  but  does  provide  external 
output.  Internal  input  and  output  are  transmitted  through  COMMON. 


The  internal  input  consists  of: 


ATT 

3C0N1 

SC0N2 

8C0N6 

CK2 

CN 

CONGNO 

EKS 

EKl 

EK2 

FF 

LEN 

NO 

NOZERO 

PPP 

RHO 

RSUBX 

R1 

r6 

TAUBAR 

XD 

XEND 

XL 

The  internal 

output  consists 

of: 

ANO 

AQft 

AVCH2D 

AVCH2F 

AVCH2G 

AVCH2P 

AVECOD 

AVECOF 

AVECOG 

AVECOP 

AVECSD 

AVECSF 

AVECSG 

AVECSP 

AVEMW 

AVENFU 

AVENOD 

AVENOF 

AVENOG 

AVENOP 

AVET 

CONGNO 

DMDDA 

DMDDM 

DMDDP 

DMDOPP 

EKKD 

(LAST 

INDIC 

LEN 

NO 

NOP 

PHI  BAR 

RHOBAR 

RRO 

TAUBAR 

TAUINT 

VELOC 

XD 

XU 

The  external 

output  consists 

of: 

AVNO 

AVRHO 

DDFNO 

E 

1  IE 

J 

N 

XD 

Additional  Fortran  Nomenclature 

The  following  table  gives  the  Fortran  nomenclature  for  those 
symbols  used  in  Subroutine  ZINTER  which  are  not  included  in  COMMON: 

Fortran 

Symbol  Symbol  Description  Uni ts 

AVNO(J)  NO  •  Mass  average  nitric  oxide  concentration 

for  a  given  iteration  j  at  toe  end  of  each 
major  step  in  the  combustor 
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Fortran 

Symbol 

Symbol 

Description 

Un 

AVRHO(j) 

Mass  average  density  of  the  combustion 
products  for  a  given  iteration  j  at  the 
end  of  each  major  step  in  the  combustor 

gm/cc 

AVVNG 

rat  j 

Ratio  of  total  nitric  oxide  mixing  out  of 
the  elements  to  the  total  mass  mixing  into 
the  elements 

AVVNGG 

NO 

Mass  average  nitric  oxide  concentration  for 
a  given  iteration  at  a  given  axial  step  in 
the  combustor 

CH2AV 

(Cit2!e 

Mass  average  equilibrium  mole  fraction  of 
unburned  hydrocarbons  (exclusive  of  C,  *  and 

CO)  at  a  given  axiai  station  in  the  combustor 

CNOLST 

Mi  it 

Nitric  oxide  equilibrium  concentration  for 
the  last  incremental  step  in  the  intermediate 
zone 

COAV 

Mass  average  equilibrium  mole  fraction  of 
carbon  monoxide  at  a  given  axial  station  in 
the  combustor 

CSAV 

<F,>. 

Mass  average  equilibrium  mole  fracti  •>f  C 

at  a  given  axial  station  in  the  combustor 

(s) 

DDFKO 

Measure  of  difference  in  the  calculated  NO 
levels  a^ter  successive  iterations  at  a  given 
axial  station  in  the  combustor 

DELTAX 

&.X 

Integration  step  size  (major)  in  the  inter¬ 
mediate  zone 

cm 

DELX 

Sx 

increment  of  the  combustor  length  across 
which  the  solution  is  generated 

Cm 

DIFNO 

Measure  of  difference  in  the  calculated 

NO  levels  after  successive  iterations  at 
a  given  axial  station  in  the  combustor 

DUMMY 

Dummy  variable 

* 

u: 

UJ 

Constant  -  equal  to  0.05 

EK1LST 

^kPlst 

Ratio  of  forward  reaction  rate  constants 
for  the  last  step  in  the  intermediate  zone 
at  the  mean  mixture  ratio  (see  Volume  2,  Section 
or  Ref  3  ) 

"Variable 

initialized  but 

not  used  in  subroutine 
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Fortran 

Symbol 

EK2LST 


Symbol 

<K2>LST 


Description  Units 

Ratio  of  forward  reaction  rate  constants 
for  the  last  step  in  the  intermediate 
zone  at  the  mean  mixture  ratio  (see  Volume 
2,  Section  2  or  Ref  3) 


EN 

N 

Proportionality  constant  between  ZxX  and 

FFF 

F 

Mean  mixture  ratio  for  the  last  step  in  the 
intermediate  zone 

FURAT 

[A.VQL 

Measure  of  change  in  NO  concentration  for 
successive  steps  in  the  combustor 

GNOMl 

[no] 

J  gm 

Nitric  oxide  content  of  an  element  i  at  a 
given  axial  station  in  the  combustor 

IENDZ 

Indicator 

IENDZ  =  0  for  all  except  the  last  major 
integration  step  in  the  intermediate  zone 
IENDZ  =  1  for  the  last  major  integration 
step  in  the  intermediate  zone 

11 

1 1 

Integration  increment  index 

ME 

1. 

ie 

Counter  of  number  of  iterations  attempting 
to  satisfy  E.  criteria 

J 

J 

Number  of  iterations  for  each  major  axial 
step  in  the  combustor 

K 

K 

Number  of  iterations  for  each  major  axial 
step  in  the  combustor 

K0N(1) * 

Index 

KON(l)  =  0  if  integral. on  for  the  element 
has  not  converged 

KON(i)  =  1  if  integration  for  the  element 
has  converged 

LSGN 

Indicator 

LSGN  =1  if  intermediate  zone  and  not  the 
last  s..ep  in  the  zone 

LSGN  =  2  if  intermediate  zone  and  the  last 
step  in  the  zone 

LSGN  =  3  if  dilution  zone 

"Variable 

initialized  but 

not  used  in  subroutine 
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Fortran 

Symbol 

Symbol 

!• 

N 

NOAVGS^ 

M  spec 

N0N0(1) 

&°i1mo 

nostar'""" 

[NO*] 

NPRINT 

OUTNO 

["Vi 

0UTN02 

M0-2 

PINO 

M. 

in 

Q(0 

qi 

<&(!) 

qq? 

RHOLST 

^i-sT 

\ 

RHOMI 

V 

RlLST 

(Ri  w 

Description 

Proport tona  :y  constant  between  AX  and  SX 

Nitric  oxide  concentration  of  the  last 
element  in  the  array 

Dummy  variable 

Nitric  oxide  concentration  of  the  combus¬ 
tion  products  before  air  addition  at  a 
given  axial  station  in  the  combustor 

Indicator 

NPRINT  =  0  if  intermediate  output  is 
not  requested  by  the  user 
NPRINT  —  1  if  intermediate  output  is 
requested  by  the  user 

Total  nitric  oxide  mixing  out  of  the 
elements  at  a  given  axial  station  in 
the  combusto.  intermediate  zone 

Total  nitric  oxide  at  a  given  upstream 
axial  station  in  the  combustor  inter¬ 
mediate  zone 

Total  mass  mixing  into  the  elements  at 
a  given  axial  station  in  the  combustor 

Measure  of  the  round-off  error  for  the 
element  i  at  a  given  axial  station  in 
the  combustor 

Measure  of  the  round-off  error  for  the 
element  i  at  a  given  axial  station  in 
the  combustor 

Density  of  combustion  product!  for  the 
last  step  in  the  intermediate  zone  at 
the  mean  mixture  ratio 

Dummy  variable 


Units 


gm/sec-cm 

gm/sec 

gm/sec-cm 


gm/cm 

2.  3 

gm  /cm 


Forward  reaction  rate  for  the  first  kinetic 
reaction  for  the  iast  step  in  the  inter¬ 
mediate  zone  at  the  mean  mixture  ratio  (see  ^ 

Volume  2,  Section  2  or  Ref  3)  gm-mole/cm  -sec 


'^“Variable  set  real  but  not  used  in  subroutine. 
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Fortran 


Symbol 

Symbol 

Description 

Units 

R6LST 

<r6>lst 

Forward  reaction  rate  for  the  sixth 
kinetic  reaction  for  the  last  step 
in  the  intermediate  zone  at  the  mean 
mixture  ratio  (see  Volume  2,  Section  2  or 
Ref  3) 

gm-mo 1 e/ cm^-sec 

STEPS 

n  t 
step 

Number  of  remaining  integration  steps 
before  end  of  intermediate  zone 

ST0RE1 

Dummy  variable 

3 

gm-mo le/ cm  -sec 

ST0RE2 

Dummy  variable 

3 

gm-mo le/ cm  -sec 

ST0RE3 

Dummy  variable 

ST0RE4 

Dummy  variable 

ST0RE5 

Dummy  variable 

ST0RE6 

Dummy  variable 

deg  X 

ST0RE7 

Dummy  variable 

3 

gm/cm 

S  UMNO 1 

“2^io/C 

Summation  of  the  total  nitric  oxide  present 
at  a  given  axial  location  in  the  intermediate 
zone  gm 

SUMl (J) 

COj 

Dummy  variable 

2.  3 

gm  /cm 

SUM2(J) 

<Ms 

Summation  of  the  total  nitric  oxide  present 
at  a  given  axial  location  in  the  intermediate 
zone  at  the  jth  iteration  at  that  point  gm 

TAU 

^ine 

Incremental  residence  time 

sec 

TTLAST 

‘lst 

Adiabatic  flame  temperature  for  the  last 
step  in  the  intermediate  zone  at  the  mean 
mixture  ratio 

deg  K 

XI 

X1 

integrated  length  of  intermediate  zone 

cm 

XXX 

X 

X 

X 

Axial  position  in  the  combustor 

cm 

XXXX 

xxxx 

Distance  between  upstream  end  of  integra¬ 
tion  interval  and  end  of  intermediate  zone 

cm 

YNOLST 

<mAst 

Equilibrium  mole  fraction  of  NO  for  the 
last  step  in  the  intermediate  zone  at  the 
mean  mixture  ratio 
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Analysis  Procedure 

The  step-by-step  procedure  of  Subroutine  ZINTER  is  given  below. 
The  Fortran  listing  of  the  subroutine  is  presented  at  the  conclusion 
of  the  step-by-step  procedure. 

1.  initialize  indicators. 

2.  Initialize  1  NO)  _  as: 


=  o 


Set  k  as: 
e 

k  =  0.05 
e 

Calculate  as 


5- 


U  D 
initialize 


lXJ»7 


as; 


Step  6  is  performed  for  each  potential  array  element  satisfying 
the  criteria  1  ^  i  50. 

6.  initial ize  q.  as: 
q.  =  1.0  x  ;o~15 

7.  Calculate  &X  as: 

AX  -  0-1  * 


8.  Calculate  Xj  as: 

Xj  =  X j_~^y  intermediate  zone  calculations  end  at  X^ 

X,  =  X  -X„  if  intermediate  zone  calculations  end  at  X„.,_ 
i  END  U  cND 

Step  9  is  performed  only  if  s=.  Xr 

9.  Go  to  step  12. 

10.  Recalculate  as: 

AX  =Xr 

11.  Reset  the  indicator  to  indicate  tnat  this  is  the  last  major 
integration  step  in  the  i nt armed ■ ate  zone. 

Steps  12  and  13  are  performed  for  each  potential  array  element 
satisfying  the  criteria;  i  ^  ct  o O 


12. 


8A 


Calculate  CNOj^o  and  qq.  as 

%%  ■-  ~ 

13.  initialize  convergence  indicators. 

Step  1A  is  performed  for  each  potential  integration  iteration 
satisfying  the  criteria  1  T  •£-  (=> 

1A.  initialize  and  as  = 

t?ii  '  o 

-  o 

15.  Set  X^  equal  to  X^. 

16.  Set  J  and  N  as: 

J  *  1 


N  »  5 

Step  17  is  performed  only  if  J  *  1. 

17.  Go  to  step  21. 

18.  Calculate  Xtl  and  X.  as: 


xu  -  xxx 


19.  Using  Subroutine  ZMASS,  calculate  the  elemental  and  over-all 
mass  flow  rates,  the  mean  mixture  ratio,  and  the  airflow  rate 
at  X0. 

Step  20  is  performed  for  each  element  in  the  array  satisfying  the 

•  * 

criteria  3.  •&.  <_ 

20.  Calculate  CJCOji  and  q.  as: 

L>iC>J  -  DucO»0 


21.  Calculate  as: 

=  AX/W 


22.  Calculate  and  NO  as: 

K*  -  c*/xu 
wo  * 


23.  Set  1  ?  1 . 
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24.  initialize  ;  Q>*Qlo-z.  an<^ 

QUClo-t.  =  C> 

EU^<^?-3>J  -  O 


UvJc3?.j.s  aa* 


25-  Calculate  as: 

XD  =  XU  + 

Step  26  is  performed  only  if  11  =  N  and  if  this  is  the  last 
major  integration  step  in  the  i ntermediatt  zone. 

26.  Go  to  step  100. 

'27.  Using  Subroutine  ZKASS,  calculate  the  elemental  and  over-all 
mass  flow  rates,  the  mean  mixture  ratio,  and  the  airflow  rate 
at  XD. 

28.  Using  Subroutine  CHECKK,  calculate  the  proportionality  constant 
between  the  mass  flow  rate  out  of  an  element  due  to  mixing 

and  the  total  mass  flowing  into  it. 

29.  Set  i  *°  1 . 


^  (S'  m  i) 


<  o 


30.  initialize  1.  as: 

le 

I .  *0 

,e  r 

Step  31  is  performed  only  if  \ 

and  if  =  °- 

31.  Calculate  Cmc3&-z.  os: 

CNdo_2  =  + 

Step  32  is  performed  only  if  ^5WcJj>  =  0. 


32. 

Go  to  step  44. 

33. 

Calculate  ^^aVc 

as: 

v^x  ;x0y 

- 

34. 

Calculate  ($b*r/); 

L  , 

Oi.  3nd 

(jioV');.  as: 

11 

r~ 

L-  ~  ioT 

4  ’  Et 

*J0 

’sOl  * 

V  -  & 

p  ■ 

'—L 
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Step  35  is  performed  only  if  rr. ^ ^  7  O 

35*  Go  to  step  43. 

36.  Calculate  E.  as: 

E.  ■  2E. 
i  i 

Step  37  is  performed  only  if  E.  ■  0,  . 

37.  Calculate  E.  as: 

E.  -  0.02 

i 

38.  Calculate  l.  as: 

i  e 

I.  >=1.  +1 

ie  te 

Step  39  is  performed  only  if  I.  ■<£  40. 

39.  Go  to  step  34. 

40.  Write  I.  and  E.. 

le  i 

41.  Reset  the  appropriate  indicator  to  indicate  that  inter¬ 
mediate  zone  calculations  end  at  Xr.m. 

tliu 

42.  Go  to  step  125. 

43.  Calculate  C^OlIo-j  and  AV»i  as:  • 

CNcTlc^  ~ 

Mr*  +  K 

44.  If  this  is  not  the  last  element  in  the  array  satisfying 

\ 

the  criteria  1  ^  c  s.  increment  i  as  i  =  i  +  1 

and  go  to  step  30.  If  this  is  the  last  element,  go  to  step 

45. 

45.  Calculate  QOqIch  as: 

CNolo-t  “  tlf 

46.  Calculate  rat^  as: 

-  LWOlD-s  / 

47.  Initialize  as; 

^-wc/c  =  0 

48.  Set  i  «  1. 

Step  49  is  performed  only  if  =  0  or  if  the  chemical 

rate  of  production  of  NO  in  the  element  is  zero. 


as : 


4$.  Go  to  step  55. 

50..  CaTculate  QaC/J 

»  fcitl 

51.  Using  Subroutine  RUNKUT,  calculate  the  values  of  CNOj  and 

9|  a*  V 

Step  52  is  performed  only  if  £>*<-0  “*■  ^ 

52.  Calculate  as: 

D0OJ1  -  rotjL 
53-  Calculate,  as: 

^-wo/l  ^no/l  +  Diod*(<Wl\t> 

54.  Recalculate  X^  as: 

Su  =  xD-%x 

55‘  If  this  is  notthe  last  element-  in  the  array  satisfying  the 

•  v 

criteria  l  s'-  -£1  increment  i  as  i  =  i  +  1  and  gc 

to  step  49.  If  this  is  the  last  element,  go  to  step  56. 

56.  Calculate  NO  as 

wb  *  ^-NQ/c/a\* 


57. 

58. 

.59. 

60. 

61. 

62. 


Set  Xy  equal  to  X^. 

|f  i  i  <£  N,  increment  1 1  as  1 1  =  I  i  +  1  and  go  to  step  24  to 
continue  the  integration.  If  not,  go  to  step  59. 

Set  1=1. 


;a leu  late  and  LfOOlcyr*  as: 

=  DjcJ  » 

3a  leu  late  and  :  3s: 

D^> 

If  this  is  not  the  last  element  in  fne  array  satisfying 
the  criteria  1  —  L  increment  i  as  i  =  i  +  1 

and  go  to  step  60.  jf  this  is  the  iast  element,  go  to  step 
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62l  Calculate  the  mass  average  density,  p^  ,  and  the 
mass  average  nitric  oxide  concentration  i\jc>;  for  the 
jth  iteration  as: 

|=  (AM 

KOj  »  fe),  /.< 

Step  64  is  performed  only  if  intermediate  output  is  requested 
by  the  user. 

64.  Write  J,  ^  and  NO^.. 

Steps  65-66  are  performed  only  if  J  *  1. 

65.  Calculate  as: 

CNOIpo,*  -  NO 

66.  Go  to  step  69. 

Steps  f«7-7>  are  performed  only  if  1  c  J  <  5. 

67-  Calculate  D>MQl  as: 

DsNCO  * 

NO 

Seep  68  is  performed  only  if  EANCTJ  x  ©.©j 

68.  Go  to  step  74. 

69.  Reset  J  and  N  as: 

J  *  4  +  1 

N  *  2N 

70.  Set  C.wojS0H-  NO. 

71.  Go  to  step  17. 

Steps  72-73  are  performed  only  if  5S  J^6. 

72.  Calculate  OwcTl  as: 

t>  No]  -  No  , 

£0  j 

73.  Write  CanoJ  ,  h1,  and  with  the  error  message  indicating 
that  the  Runge-Kutta  iteration  failed  to  converge  to  the 
specified  limit. 

Step  74  is  performed  only  if  !l  =  N  and  this  is  the  last  major 
integration  step  in  the  intermediate  zone. 
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7^-  Go  to  step  119. 

75.  Calculate  CS&3,  ^T,  (.C^V  and 

as;  '  ^ 


Luo] 

I 


Max 


?c  *  Cami^i,  /«$ 
fTc*  L^Chlnl 

1  CC6)^a  ‘  (Mi.)„  /;ll* 


MjAi 

*^v 

C'/ 

W^AX 


C--I 


CCC^e  -  ^  Ccio.^.  (auc)*  //.V 


U*  / 


(P54  =  T  (pi Oe*l‘*J»/MS 

L~  /  7 

76.  Calculate  MW  as: 

MW  -  *  ^  *  T  *-  'SS.aOST  /p 

77.  Calculate  [C^)]^  C<^L  ,  ^  fe^i  as: 

rc<3\L  "  ( *- ! 2-  / MTV 

[CpL  =  Ccb)e  ^  25>  /  f\VJ 

£CHa3e  "  CCHa)e^  H  /aTu! 


78.  Calculate  ^_Kc]  ,  t>0*J;  and  [>&]  as 

=  LNb3^lofe  *-j\\lu /^0<0 

=  LiVO J  *  o 

^ Ncj  -  laToJ  ^  i'V^  * loco/ ($?)x 

.  i  j) 


fico] 

[ICO*] 


90 


79.  Calculate  ;  and  aS: 

[O^)]^  ~  [ClJe.*  iO^  /iZ 
ico}&  -  Ccb Qc  *  lo^-w /z-S 
{Crf^  =  jCH^  a  !Ofc  *  MW/  /H 

80.  Calculate  £  C(^)]e  [C-C^J^  and  as: 

L^Je.  =  £-54*. 

CCo3e  =  ^ 

L«^L  =  C^Je*  t 

81.  Calculate  ^Cts)]t;  t^le.  and  “: 

[C^  -  fesJe.  *  Mo  *  IOCO  /  (Pkk, 
r  co]  *  lco]«.’’  si*  * lcco  /(fw'i*. 

potxj  -  [oitL’'  <  *  VXD/  Lh)*> 

82.  Calculate 

83.  Calculate  n  as: 

step  . 

nstef>  ~  ^E»JD  -Xj)/  AX 

Step  84  is  performed  only  if  ^  *<“  O-OS 

8^.  Set  the  appropriate  indicator  to  indicate  that  the  nitric 
ox'.'a  reaction  is  frozen  at  this  point  in  the  combustor. 


85. 


Calculate 


as: 


SI 


inc 


86.  Calculate  *T.  ^  and  °f  as: 

‘int 

*T  -  'T  -  ^ioc. 


87. 


88. 


Calculate  V  as: 


V  - 

Calculate  c(?  as: 


89.  Using  Subroutine  PRINTS,  write  the  output  for  this  axial 
station  in  the  intermediate  zone. 

Step  90  is  performed  only  if  the  nitric  oxide  reaction  is 
frozen  at  this  point  in  the  combustor. 

90.  Write  a  message  indicating  frozen  conditions  exist  in  the 
combustor. 

Step  91  is  performed  only  if  the  appropriate  indicator  has  been 
previously  set  to  indicate  that  the  nitric  oxide  reaction  is 
frozen. 

•91.  Go  to  step  124. 


Q)"  -  ? 


Step  94  is  performed  only  for  the  last  major  integration  step 
in  the  intermediate  zone. 

94.  Go  to  step  125- 


S2 


95. 


Step 

96. 

9?. 

98. 

99. 

100. 


101. 

102. 

103. 

104. 


Calculate  as: 


XXX 


XL~XU 


Y  =  y  Y 

XXX  ‘END  -  U 


if  intermediate  zone  calculations  end  at  X. 

i 

if  intermediate  zone  calculations  end  at  X 


96  is  performed  only  if  Xxx* 

Go  to  step  12. 

Calculate  &X  as: 

AX  -  Xxxy. 

Set  the  appropriate  indicator  to  indicate  that  this  is  the 
last  major  integration  step  in  the  intermediate  zone. 

Go  to  step  12. 

Set  the  appropriate  indicator  to  indicate  a  dilution  zone 
type  calculation  is  to  be  applied  to  the  last  element  in 
the  intermediate  zone. 

Using  Subroutine  ZKASS,  calculate  the  over-all  mass  flow 
rate,  the  mean  mixture  ratio,  and  the  airflow  rate  at  X^. 
Using  Subroutine  CHECKK,  calculate  the  mass  flow  rate  out 
of  an  element  due  to  mixing  and  the  total  mass  flowing 
into  it. 

f eset  the  appropriate  indicator  to  indicate  intermediate 
zone  calculat >ons. 

Calculate  Q.  and  JUNoIap  as: 

Q  -  %■* 


END* 


USvJm  -  lTuv-dO  * 


105. 

106. 

107. 

108. 
3  09. 
110. 
313. 
112. 


usT 


Using  Subroutine  HINT,  calculate 
Using  Subroutine  MINT,  calculate 
Using  Subroutine  MINT,  calculate 
bring  Subroutine  MINT,  calculate 
Usinp  Subroutine  MINT,  calculate 
Using  Subroutine  MINT,  calculate  PLs.r 
Using  Subroutine  MINT,  calculate 
Calculate  as: 

U^x k  -  \}X>^r  30.C-/ ^i_sr  *T^s,-r^^2.lOSl  Jp 
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113.  Set  the  appropriate  indicator  to  indicate  that  this  is 
the  last  step  of  the  intermediate  zone  calculations. 

114.  Using  Subroutine  RUNKUT,  compute  the  values  of  and 

0.  at  X0- 

115.  Recalculate  as: 

XU  =  V  ^  X 

116.  Reset  the  appropriate  indicator  to  signify  intermediate 
zone  calculations. 

117.  Calculate  and  NOj  as: 

CNQIan 

118.  Go  to  step  65. 

119*  Compote  "7*  ,  ^  andLNOlas: 

l  -  ~ 

?  -  ^-ST 

0*6}  ~=  L^QJan 


120. 

Using  Subroutine  HINT,  compute  (C{s))e* 

121. 

Using  Subroutine  MINT,  compute 

(co)e. 

122. 

Using  Subroutine  MINT,  compute 

<CH2)e* 

123. 

Go  to  step  76. 

124. 

Calculate  as: 

125. 

Return. 
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subroutine  zinter  ZIN*0000 

REAL  MONO (50 J  »HSTaRU»MSTARD*NO,NOAVGS*NOP»NOST AR  ZlN*0010 

DIMENSION  AVRHO(lO) »AVNO(10> *KON(lO) »Q(50) «QQ(50) ,SUM1 (10) »SUH2(10ZlN«0O20 

1)  ZIN*0030 
C0MH0N/DATA1/AIR150) tRH(50>  *XX(50) »FF(50) *8C0N1 (50) »8CON2(50) »CH2 (ZlN*o040 

150) tZP(70) tCUHOIS (70) »VP*RHO(50) »8COn6(50> .ATT(50) »PPP»FN0XP,R1 (50ZlN*0050 

2)  ,R6(50) .EK1 (50) »EK2(50) ,A2*A3,XL,CN,BETA,S,PHIP,EKSVXEND»A1  Z TN°0060 

COMmON/OUT1/aVECSG»AVECOG.AVcH2G»AVECSP.AVECOP*AVCH2P,AVECSD»AVECOZin*0070 

10» AVCri20» AVECSFt AVECOFt AVCRHF  ZIN°00B0 

COMMON/OUT2/AV£NOG  *  AVENOD  «  A V£NOP » A VENOF » AVENFU » RRO  » ILAST  ZlN«0090 

CO«hON/oUT3/INDIC»NO(SO) ,aV£T*TAUBAR,RH08AR,PHI3AR,IHAX,XD,  ZlN«olOO 

1F8ARD.XU»LEN»TAUINT»TAUDIL*VEL0C  Ztn*o1 10 

C0mh0N/oUT4/CONGN0(50) *DELMD(50) *AREAD*ASLOPE»OHFUO»SLOPE (50) ,TSL0ZIN«0120 
1PE»NOP(50) tEXKO* DkFT  »Ul)K(50) ,DDM(50) ,  F8(50) ,DHFUD»AlRQ»DMFF£D*IN«0l30 

2,RSUBXtSlG*SIG2ER»AVEHW,DMDOA(50)»OHDDH(5C) *DMDDP(50) ♦DMDDPP(SO) ,FZIN*ol40 


3PRIh£(50>  tNOEQXDt AN0*AQQiSUEA(50) » NOZERO (50) »R90T(50) *E(50) 

*IN«0150 

C0HM0N/0U75/HST ARD » MSTARU 

ZlN«0l60 

C0MH0N/0UT6/REATt0:LL 

*IN°0l70 

c«*** 

ZIN°0130 

c***» 

SET  INITIAL  INDICATORS* CALCULATE  DELTAX, CHECK  X 

ZIN»0190 

c**** 

ZlN*o200 

NPRiNT-0 

Zin»o210 

ILAST^O 

ZIN*0220 

LSGN  =  1 

2lN*o230 

INDIC  =  2 

ZIN«02A0 

iend*=o 

ZlN°0250 

AVEnFU=0.0 

ZlN*0260 

EK=v»05 

ZIN*c270 

XU  s  ad 

ZIN*0230 

tauint  =  o.O 

ZlN«0290 

DO  100  I  =1,50 

ZlN«o300 

0(1)  s  1.0E-15 

ZIN*0310 

100 

CONTINUE 

ZIN«0320 

DELTftX  =  o.l*RSUBX 

ZIN*o330 

IF(LEN.EO.O)  xi»xl-xu 

*TN*0340 

IF(LEN.EQ.l)  XI  =  XEND-XU 

Ztn*c350 

IF(DELTAX.LE.XI)  GO  TO  200 

ZlN»0J50 

DELTAX  s  XI 

ZIN*0370 

I END*  =  1 

ZJN*03~0 

200 

CONTINUE 

ZlNft0390 

c«*«« 

ZlN*0400 

STORE  INITIAL  VALUES  FOR  BEGINNING  OF  EACH  MAJOR  STEP 

zin^daio 

C«o»« 

ZlN»0420 

250 

CONTINUE 

ZlN*0430 

DO  300  I  =  1,50 

Zl.\,e0440 

NGNO(I)  =  NO ( I ) 

it N* 0*50 

OS(I)  =  Q(I) 

ZlM*046G 

AON ( I )  =  0 

Z  IN"£>4?0 

300 

CONTINUE 

zin«04b:- 

DO  350  K  si, 6 

ZjN<*0490 

SUMl(K)  =  0.0 

ZlN«n500 

SUM2 (K)  s  o.O 

ZlN*05l0 

350 

CONTINUE 

ZIN*0520 

XXX  =  xo 

ZIN®0S30 

J  =  1 

ZJN*0540 

N=5 

ZIN*0550 

C**e» 

ZIN»0560 

SET  Initial  VALUES  EQUAL  TO  STORED  VALUES  EACH  TIME  N  CHANGES 

ZIN*0570 

C»«99 

ZIN*05S0 

360 

CONTINUE 

ZIN*0S90 

55 


IF  Ijt  EQ.i)  60  TO  5CC' 

XU  =  Xxx 

C«C9» 

c****  flsft  uohci)  for  calculation  of  slope 
£»»«« 

xo-xu 

CALL  ZmaSS«DELX> 
do  i  =  i f  i max 

VO 1 1 i  S  HQHQil) 

Q{I)  -  'JO;D 

4oc  continu;: 

500  EN  =  N 

DELX  -  OtLTAX/EN 

Er.XQ~Cr./Xl 

AVVN06-yjSr'£?e&3 

c  •**©* 

C**«*  5TART  T*iE  sjAJGR  STEPS  00«N  T HE  CCH-USTOR 
c*»»* 

00  3000  11  =1*N 

OUTNO=0,0 

OUTnO2=0»0 

?INO=0.0 

XD  =  *U«-DELX 

IFiHiEQ-N.AND.IENOZoEQ.i)  GO  TO  8000 
CALL  ZrfASSiDELX) 

CALL  CHECKKtDELXi 

C*e** 

C*»**  TEST  Each  ELEMENT  FOR  CONVERGENCE 

Coo** 

C***o 

c*»o*  if  nozero=i  bypass  the  calc 

c**** 

DO  2000  IsltlKAX 
IIE=0 

I F  <  SLOPE  { T )  .LI .  0  *  a  »  AND  .  DOM  ( I J  *  £Q.  0 . 0 !  OUTf<02>0UTN02*UDK  i  l  >  *NC  U  i 
IF (ODH(i) ,EQ.o,o>  GO  TO  2GP0 
OHOQA  ( I )  =  UDM  ( I e ASLOPE/HST A«U 
SCO  DMDOP 1 1 ) -SLOPE { I »  +E  1 1 >  *UDM i I >  -ROOT {I ) 

DMDDH t I ) =OHODP { I ) -ONDDA { I ) 

DMOOPP(I)  =  E(I)*UDH(IJ 
IFIOMOOMCIJ .GT.O.O)  GO  TO  700 
£!i)=2. 0*EtI3 

Coece 

c***^  CNtHENCE  E(I) o CANNOT  EQUAL  ZERO 
C«*«* 

IFJEsI) «£5*0»0J  E(I)=0.02 
IIEsIIE*! 

IF ClIE,s_T.40>  GO  TO  600 
*R I TEC 6, 9999)  IIE,E(I) 

L£N=1 

GO  TO  %0C0 
700  CONTINUE 

OuTnO-OuTnO+OMDDF P { I ) «N0 ( I } 

PI>‘C- ^IN0*DMDDP  ( I )  *ROOT  ( I ) 

2000  CONTINUE 

OUTnO=OuTnO*OUTn02/OELX 
AVVnO=OUTnO/PINO 
SU*n3I=C*0 
CO  4000  1J=1,IRAX 
IFt90MUJ)9Ee.040}  GO  TO  4000 


Zl?:°o6oo 

ZlNaf)5lO 
ZIN*0620 
*lN*0b30 
j£N°0640 
ZIN*065O 
ZlN*0660 
L  Ifi°0S70 
i.IN*0S30 
l IN»0&90 
ZlN°(i70C 
ZTN*0?10 
2lM*072O 
ZjN*073S 
ZlNa0740 
Z J  0  7 5 0 
ZJK*q760 
Zlfi*0/70 
Z!N*o7EQ 
£tn»079O 
Ztnc0800 

ZjN^OBlO 

2lN*0820 

ZtN^OGSO 

ZlN^oSAO 

zin^osso 
ziN^oeso 
ZIN*08/0 
ZlN*0890 
ZINa0890 
ZlN*09Q0 
ZIN*S9I0 
ZIN*092(S 
ZlN^^O 
ZlN*r,940 
?TN«0950 
ZlN'  *}9C  0 
ZIN&0970 
ZlN»09S0 
ZIN»0990 
ZIN*1000 
ZlN°l 010 
Z I 1 0  2  0 
ZIN°1 030 
ZIN»1040 
ZIN*1050 
Zl<S*I  O&D 
Z IN*] 070 

z:-v*icso 

Zl^*l 090 
ZT.\:oi  1  00 
Z I  <ia  1 1  ;  0 
ZIN*U2D 
ZI-N*i  130 
ZIN*1140 
ZIN*! 150 
Z IN* llSC 
ZIN*1170 
ZIN«1!30 
ZIN*1190 


c**»* 


'  355S 
C®®** 

C*®»« 


IF (N'0i£«0 { 1 J)  ,£Qe  1 )  GO  TO  4000 
*-JOP{lUi=AVVWG 

CALL  KUNKUT{XU*DEi.X*NO(lJ)  t  ^<IJ5  *LSS»»IJ) 
IFS^OllJ) <  LT«  0 , 0)  «0(IJ)=AVVWQ  ‘ 

SU«NOI  %  sUM?4CT*NGUJ)®OELMDf  IJ) 

XU=XU-D£LX 
I  CONTINUE 

AVVn05=SUKM0I/MST  ARO 
xu=xo 
i  CONTINUE 
00  3500  I  *1*1 MAX 

RHO»:I  =  ShO  *.  1 5  ®DELNQ  J  I ) 

SNOhI  =  KOUi®OE-.KOU) 

SUKKvS  =  SUMl  (UJ+RHOHI 
SUH?(«/i  *  SUMHC4WGN0MI 
i  CONTINUE 

-ayHHOij;  *  SUMi ( J) /xSTARO 
AVNOU’}  a  SUHH(.J)./MSTAR0 

>  VRITE  CONTROL 

t 

1F<nPSINT.EQ,0)  GO  TO  3550 
*RITE16*36Q0)  XD* J,AVRHO{ J) * AVNO? J} 

!  FORMAT (9H  X (CM)  =  »E12.S*4HJ  a  «I2jlSriAV£. 
1AVE.  NO (GH/GHi  =  ♦£!?;. 5) 
i  CONTINUE 


►  LJGIC  CONTROL  ON  J 

t 

GO  TO  <4loO,4300t43PO*A30C*A600»4600) *J 
)  D'JMMY=AW?iOG 
SO  TO  4500 

)  0IFNC=Aa5{  UWNOG-DUHMYJ/aVVNOS) 

IF (DIFnO.LT. 0.01  >  GO  TO  5000 
)  J=  J*1 
H  -  2pn 

dummy =*vvnog 

SO  TO  360 

,  DDFnO=A3S  ( { AVVNOG-.OUMMY)  I’iVVfiOG! 

*RITE'.&*4700)  DDFNOtNfXO 
i  FORMA;  {///,69H  RUNGE«KUTTA  ITERATION  FAILED 
IEO  lI«IT.OIFNO  a  *E12.5*5H  N  =  ,I4,5H  X  *  » 
)  CONTINUE 
5  CONTINUE 

If  Cn‘£O.N.AND.I£N02.EQ»i>  SC-  TO  8500 


C**«® 


SRITE  THE  APPROPRIATE  OUTPUT  FOR  ThJS  AXIAL  STATION 

AVEnOS  =  :,3 

RHA3Ak  -  o.O 

AVET  51  0.0 

CSAV  =  C.O 

COAV  =  0.0 

CH2AV  =  0.0 

DO  6000  I  =1*1 MAX 

AVENOG  =  AVENOG*NO:Ti«OELMOa> 

RH08AR  =  RHOSAft*RKOt?  )*DEL¥'D{I) 

AVET  =  aV£T*ATT ?I)  9OELMOt|) 

CSAV  =  CSAV*3C0N1  n5*0O_V.0(I) 

COAV  =  C0AV*3CDN2li:-*3E-_M0{I) 


2IN«120G 
2lN®i2lO 
ZlN* {220 
ZlN*l230 

ZJN*  J  2»5i 
ZIN®1250 
/.IN®lH6G 
ZlN°l270 
2lN°l230 

zin*i29o 
l  IN®  1.300 
ZlN*}31o 
ZlN*l32C 
2IN°13?^ 
EiN®i340 
2INC1350 
a1N®1360 
ZlN»l3ro 

Zl.H«l33G 
ZI«*1390 
ZJN*1400 
ZlN®14lo 
ZIN®14 20 

RHO tGK/CC)  »  i£12*5*1?HZIN«1430 

ZIN*1440 
ZlN«i450 
il^USO 
Zl«M»?0 
AINM4B0 
Z IN® 1490 
ZIN®150»5 
ZIN«'1510 
ZlN-1520 
21**1530 
ZIN®154C* 
ZIN®1550 
ZIN®1560 
ZjN^lSTO 
ZIN°2  530 
Z IN* 1590 

?  TO  CONVERGE  TO  SPECIFIZIN®*.600 
>E12.5S5H  CHS.///)  ZxN*I&10 

ZIN®1620 

ZIN®1&20 

ZlN*l&40 

ZlN*'j65C. 

.  STATION  L IN* 1660 

ZlN®1670 
ZlN-*i6S& 
l IN® \ 690 
ZjN*l700 
ZIN*1T10 
ZIN®*,7?0 

zin-itbo 

2 1  *\®  1  7  v  0 
ZIN*1?50 
Zl N®1 7  60 
Zl>!®  j7?0 

Z IN* 1780 
ZlN®l7SC 


CH3aV  =  CH?AV*CH2{I)*UtLH0(I) 

6000  CONTINUE 

AVEnOG  =  AVENOg/.MSTARD 
RhO«AK  =  RH08AR/M3TA.RD 
AVET  =  AVeT/HSTARO 
CSAV  =  CSAV/HSTAfiO 
COAV  =  CC-aV/KSTARO 
CHZiV  s.  CH2AV/K5TARD 
6500  Av£m»  *  RHOBAR»AV£Tei'.2.0S7/PPP 
AVtCSS  =  CSAV®1 2»0/ AV£M*f 
AVc.CO«  =  COAV^B.O/AVEHtf 
AVCH2G  »  CH2AV*14,0/AV£M« 

AVEnOP=aVENOG*1 . 0£*06*AV£M#/30 . 0 
AVEnOD  =  avenog^Rhosar 

AVErtOr  =  AV£RO5aH5TARO«10C0»/DHFT 

Ay£C5P=AV£CSG*1.0E+06*AVEM^/12.0 
AVEC0P=AVEC0G*1 *0E*06*AVEM^/28«  0 
aVCH2P=AVCH2G«1.0E-06*AVEM«/14.0 
avccsc  =  avecsg*Rhobar 
AVECOO  =  AVECG6*RH0BA« 

AVCH2U  =  AVCH2G*RH0aAR 
AVECSF  3-  AVECSG«HSTARD»lOO0»/DKFT 
-AvECOF  =  AVECOG?*-STARD«1000./D«FT 
AVCH2F  =  AyC.-i2G*MSTARDa1000»/GMFT 
FU-RaT*  (  AVEHJF-AVDwFU)  /AV£nOF 
ST£PS=  CX£nD"XUJ /OELTAX 
IF IFURaTssTEPS.LT. 0.05)  IlAST*; 

o***  CALCULATE  RESIDENCE  tike, etc. 
c*»** 

TAU  =  D£LTAX*RhCBAR«AREAD/HSTARO 

TAUINT  =  TA'JINT.TaU 

TA'JBAR  =  TAU3AR«TAU 

VELOC  =  MSTARD/(RH0SAR»AREAD) 

PHI3AR  =  FOARD/ (EKS*{1.0«F8ARD)) 

CALL  PRINTS 

If  dLA37.EQ.13  WRITE«6,9500> 

9500  FORMAT {/////, K.X*42HNITRIC  OXIDE  REACTION 
1) 

IF(ILAST.EO.I)  GO  TO  8600 

C**a-o 

c***»  CONTROL  overall  STEPS 

A’/EnFU=AV£NOF 

RRO=RKOEAR 

IFdENQZ.EQ.l)  GO  70  9000 
XFCl£N,EG.O)  xxxx  =  XL-XU 
IFtLEN.EQ.l)  XXXX  =  XEND-XU 
IF {OELTAX.LT .XXXXl  GO  TO  ?50 
OELTAX  =  XXXX 
IENqZ  =  1 
GO  TO  250 

£«•«» 

C*o*»  COMPUTATION  FOR  LAST  ELEMENT 
C«e»« 

3000  IN0IC  =  3 

CALL  4M4SS(D£LX) 

CALL  checkmdelxj 

INDIC  =  2 
AGO  =0*0 


2IN*I«0S 
2  IN” 1 810 
2 \H*l 820 
Z1N®1  830 
ZlN®l8i-0 

2IN»1860 
2 1 N®  3  S  70 
ZIN’*1330 
ZlN*iS9& 
LlU*\ 900 
ZlN^l 9lo 
ZlN°1920 
ZIN®1930 
ZIN®1940 
Z IN* 1950 

zin«i9&o 

ZlN«i970 

2IN«1930 

ZlN*l990 

ZIN*2COO 

ZJNS2010 

2IN*2020 

ZlN*203C 

ZIN»2040 

ZIN«2050 

ZlN®20b0 


ZIN*20?0 

ZIN»2CB0 

2JN*2090 

2lN«2l00 

ZIN*2H0 

ZlNc2l20 

ZIN*2130 

ZIN*2lAn 

ZJN*21S0 

ZlN°2l60 

FROZEN  AT  THIS  PQINTs///ZlN«2l70 

Z1N®2130 
ZlN®2l90 
ZiN®2200 
Zi N*22l0 


ZIN®2220 

ZlN52230 


ZlN*22<-0 
ZIN®2250 
ZIN«22AC 
ZJN®2270 
Ztn=2280 
21**2200 
tINJ'?3S0 
ZIN®2310 
Zl«°2320 
Z IN®2330 


ZIN®2340 

Zr.N*?350 

ZIH^2360 


ZIN^>370 
ZIN*2380 
2 IN* 2 390 
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4N0  =  0*0 
DO  8100  I  =1*IMAX 
ASQ  =  AQQ*0(I)«DELM0{I) 
ANO  s  AN0*N0(I)*DELMD(I) 


8100  FFF  «  F8ARD 

AQ12  =  AQQ/HSTARD 

ANO  a  ano/mstard 

CALI.  HINT  {l*FF'-35*FFfRl*RlLAST} 
CALL  HINT  d  f  FFF  » 35 * FF • R6  » R&LAS7 J 
CALL  HlNT{l»FFF»35«rF#EXl»EKlLST? 
CALL  HINT  d»FFF*35.FF» EK2 » £<<2LS i  S 

C ALL  « I NT { 1 1 FFF  *  35 ♦ Fr  *  8C0N6 1 YNOL&T ■ 

CALL  HINT d  » FFF  *  35 1 FF  *  RHO *  SHOLS  ? ' 
CALL  HjNTdtFF  -*35*FFtATT,TTLA5T) 
CNOLST  a  YNOLST«30.0/(RHOLST«  TTLAfe 

STORE1  =  RICH 
STOHE2  a  R6d> 

STORE3  s  EKIC1) 


r,»82.eS7/FP?J 


STORED  s  EK2115 
STORES  s  CONGNOU) 

STORES  =  ATT (1 ) 

ST0RE7  *  RHOtli 
R1 { 1 )  a  RxLAST 
R6(l>  *  R6LAST 
EKKli  =  EK1LST 
EK2U)  =  EK2LST 
RrtOll)  a  RHOLST 
ATT(l)  a  TTLAST  - 
CONGNO(i)  a  CNOLST 
LSGN  *  2 

C ALL  RUNKUT { XU , DEL  « *  ANO « AQQ  *  LSSN . 1 } 

XU  =  *U~D£LX 
RlCl'J  a  STORE  1 
R6d>  =  STORE2 
Ettltl)  =  STORES 
ZK?Al)  =  STORE* 

CONGNOji)  a  STORES 
ATT{1)  a  STORES 
RHO  (I*1  =  ST0R&7 
AVRhO(J)  a  RHOLST 
AVNOIJJ  =  ANG 


LS6N  =  1 
GO  TO  3550 


COMPUTE  appropriate  averages 


COO»-» 

6500  AVET  =  TTLAST 

p.rtOQAR  =  RHOLST 
AVEnOG  a  AN'O 

CALL  HINT  { 1  tFFF*35»Fr  »8C0N'1  »CSAV) 
CALL  HlNTn.FFF.3S.FF.BC0N2.C0AV) 

Call  hint c i *fff * 35 *ff »ch2»ch2av) 
30  TO  6500 

9999  FORMAT (ldX.16.8E12* 5) 

8600  ANO= AVEnOG 
9000  RETURN 
END 


ZJN°2400 
A  IN® ?.*10 
ZIN«2*20 
2IN»2*30 
2lN"2*40 
2IN«2450 
Zl«*2450 
ZIN»2*70 
ZlN<»2A80 
ZIN*2490 
ZIN»2500 
ZlN°251 0 
Z1N»2520 
ZIN*?530 
ZIN°2540 
ZlN°2550 
ZlN*2560 
•ZlN*2570 
ZIN*2580 
ZIN*?590 
ZIN«2600 
ZIN*2610 
ZlN°H620 
ZlN*2&30 
ZIN*2&40 
ZIN*2&50 
•Zin*2660 
ZIN*26?0 
ZIN»2630 
ZIN»2690 
ZIN*2700 
ZIN«2710 
ZIN«2720 
ZIN*2730 
Z I N®  2 1 4  0 
Z IN* 2750 
ZIN*2?50 
ZlN*2770 
ZJN>27B0 
ZIN*2790 
ZlN*2800 
ZIN*2610 
ZIN«2BH0 
Z1N«?830 
ZIN*2843 
ZIN*2S50 
ZI'N®2360 
ZIN*?870 
ZIN*2SB0 
ZIN*?S90 
ZIN«?900 
ZIN*2910 

ZIN^PG 

ZIN*2930 

ZlN»2940 

ZJN*2950 

ZxN®2960 
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APPENDIX  VI  -  SUBROUTINE  DILUTE 

i 

The  function  of  Subroutine  DILUTE  is  to  calculate  the  concentra¬ 
tion  of  nitric  oxide  at  specified  axial  stations,  and  at  the  exit  of 
the  dilution  zone  of  a  gas  turbine  bombustor. 

Subroutine  DILUTE  is  called  by  the  main  routine  (GASNOX);  it,  in 
turn,  calls  Subroutines  2KASS,  HINT,  RUNKUT,  and  PRINTS.  The  subroutine 
does  not  require  external  input  but  does  provide  external  output.  In¬ 
ternal  input  and  output  are  transmitted  through  COMMON.  The  internal 

i 

input  consists  of: 


Fortran 

Symbol 

A1RXX 

DDIFNO 


AIRD 

ANO 

AdQ 

ATT 

BC0N1 

BC0N2 

BC0N6 

CH2 

EKS 

EK1 

EK2 

FF 

I  LAST 

PPP 

RHO 

RSUBX 

Rl 

,  R6 

S 

XEND 

XD 

The  internal 

output. cons ists  of: 

ANO 

AVCH2D 

AVCH2F 

AVCH2G 

AVCH2P 

AVECOD 

AVECOF 

AVECOG 

AVECOP 

AVECSD 

AVECSF 

AVECSG 

AVECSP 

AVEMW 

AVENFU 

AVENOD 

AVENOF 

AVENOG 

AVENCP 

AVET 

INDIC 

•  NOEQXD 

PHI  BAR 

RRO 

TAUBAR 

TAUDIL 

VELOC 

XD 

XU 

The  external 

output  consists  of: 

DDIFNO 

DILL 

DNO 

J 

N 

REAT 

RHOBAR 

XD 

Additional  Fortran  Nomenclature 

The  following  table 

gives  the  Fortran 

nomenclature  for 

those 

symbols  used 

in  Subroutine  DILUTE  which  are  not  included  in 

COMMON. 

Symbol 

Description 

Unit 

N4v 

Combustor 

airflow  at  axial 

station  Xp 

gm/sec 

oj 


Difference  in  NO  concentrations  for  suc¬ 
cessive  iterations  at  the  end  of  each 
major  step  in  the  combustor 
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Fortran 


Symbol 

Symbol 

DELTAX 

AX 

DELX 

DNO 

DUMMY 

^  DUM 

EK1LST 

^K1 W 

EK2LST 

^LST 

EN 

N 

FURAT 

IENDD 

1 1 

I  1 

J 

J 

Description 


Un?  ts 


Integration  step  size  (major)  in  the 

di lution  zone  cm 


Increment  of  the  combustor  length  across 
which  the  solution  is  generated  cm 

Average  NO  at  given  axial  station  (down¬ 
stream)  in  the  combustor 


Dureny  variable 

Ratio  of  forward  reaction  rate  constants 
at  a  given  axial  station  in  the  dilution 
zone  at  the  mean  mixture  ratio  (see  Volume  2, 
Section  2  or  Ref  3) 


Ratio  of  forward  reaction  rate  constants 
at  a  given  axial  position  in  the  dilution 
zone  at  the  mean  mixture  ratio  (see  Volume.  2, 
Section  2  or  Ref  3 ) 


Proportionality  constant  between  AX  and^.X 


Measure  of  change  in  NO  concentration  for 
successive  steps  in  the  combustor 


Indicator 

IENDD  =  0  for  all  except  the  last  major 
integration  step  in  the  dilution  zone 
IENDD  =  1  for  the  last  major  integration 
step  in  the  dilution  zone 

Integration  increment  index 

Number  of  iterations  for  each  major  axial 
step  in  the  combustor 


LSGN 


N 


Cno4o 


Indicator 

LSGN  =1  if  intermediate  zone  and  not  the 
last  step  in  the  zone 

LSGN  «  2  if  intermediate  zone  and  the  last 

step  in  the  zone 

LSGN  =  3  if  dilution  zone 


Proportionality  constant  between  aX  and<yX 
Dummy  variable 


N0N0 
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Fortran 

Symbol 

Svirool 

Description 

Units 

NPRINT 

indicator 

NPRINT  =  0  if  intermediate  output  is  not 
requested  by  the  user 

NPRINT  =  1  if  intermediate  output  is  re¬ 
quested  by  the  user 

d 

q 

Measure  of  the  round-off  error  in  the  Runge- 
Kutta  integration  routine  at  a  given  axial 
station  in  the  combustor 

C'A 

qq 

Me-. sure  of  the  round-off  error  in  the  Runge- 
Kutts  integration  routine  at  a  given  axial 
station 

R1LST 

<RiW 

Forward  reaction  rate  for  the  first  kinetic 
reaction  at  a  given  axial  position  in  the 
dilution  zone  at  the  mean  mixture  ratio 
(see  Volume  2,  Section  2  or  Ref  3) 

gm-mole/cm^-sec 

R6LST 

^LST 

Forward  reaction  rate  for  the  sixth  kinetic 

reaction  at  a  given  axial  position  in  the 

dilution  zone  at  the  mean  mixture  ratio  (see  , 

Volume  2,  Section  2  or  Ref  3)  gm-mole/cm  -sec 

STEPS 

r. 

step 

Numbe.  of  remaining  integration  cteps  be¬ 
fore  combustor  exit 

STORE 1 

Dummy  variable 

gm-mo 1 e/cn?- s ec 

ST0RE2 

Dummy  variable 

gm-mo le/ cm  -sec 

ST0RE3 

' 

Dummy  variable 

ST0RE4 

Dummy  variable 

TAU 

^ir.c 

Incremental  residence  time 

sec 

yoz 

xoz 

Distance  between  upstream  end  of  inte'jia- 
tion  interval  to  combustor  exit 

cm 

XXX 

X 

X 

X 

Axial  position  in  the  combustor 

cm 

xxxx 

XXXX 

Distance  between  upstream  end  of  integra¬ 
tion  interval  and  combustor  exit 

cm 

YCH2XD 

(WJ 

2  e*o 

Equi 1 i br ium  mole  fraction  o  unburned  • 
hydrocarbon,  (excl us i ve  o.  ancl  CO) 

at  a  given  axial  station  invtne  dilution 
zone  at  «.he  mean  mixture  ratio 
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tv 


m 


m 

m 


Fortran 

Symbol 

YCOXD 


YCSXO 


YNOXD 


Symbol 

<CO,ex0 
^c(s) ^eX[ 
(NO) 

eXD 


Description 

Equilibrium  mole  fraction  of  CO  at  a  given 
axial  station  in  the  dilution  zone  at  the 
mean  mixture  ratio 

Equilibrium  mole  fraction  of  C^sj  at  a  given 
axial  station  in  the  dilution  zor.< 


Uni  ts 


tone  at  the 


mean  mixture  ratio 


Equilibrium  mole  fraction  cf  NO  at  a  given 
axial  station  in  the  dilution  zone  at  the 
mean  mixture  ratio 


Analysis  Procedure 

The  step-by-step  procedure  of  Subroutine  DILUTE  is  given  below. 
The  Fortran  listing  of  the  subroutine  is  presented  at.  the  conclusion 
of  the  step-by-step  procedure. 

1.  Initialize  indicators. 

2.  Set  Cno1on  *  [NOIaN 

Step  3  is  performed  only  if  the  nitric  oxide  reaction  is  frozen 
at  the  point  in  the  combustor. 

3.  Go  to  step  16 


4. 


5- 


Calculate  Xy,  and  q  as: 

Xj  =  XD 
^QIL  =  0 

q  =  a 

Calculate  AX  and  Xq^  °s: 

AX  ~  0.1  *  «xn 


^r>2r  -  Xe*}D 

Step  6  is  performed  if  AX  —  Xjji 
6.  Go  to  step  8. 

7*  Set  the  indicator  to  indicate  that  this  is  the  last  step 
in  the  combustor  and  calculate  AX  as: 

AX  =■  Xip-b 

8.  Initialize  dummy  variables  M^j  and  [noJ^q  as: 


*  «4v 


&10J«o=  M 


'ip* 
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9.  initialize  qq  and  Xyy  as: 

qq  =  q 

X  XX  *  XD 

10.  Initialize  J  and  N  as: 

J  =  1 

N  =  20 

11.  initialize  II  as: 

11  =  1 

Step  12  is  performed  only  if  J  =  1. 

12.  Go  to  step  14. 

13.  Calculate  ,  Xo;  and  CNoJ^  as: 

»U|«0-  »a!w 
Xo  -  ^xx 

CoSKrvj  - 

14.  Calculate  &X  as: 

%X  *»  AX/N 


17. 


18. 


15.  Go  to  step  19- 

16.  Set  N,  II,  and  J  as: 

N  =  10 

II  -  N 
J  =  6 

Calculated,  AX  and  Xy  as: 

'S'X  =  Xo 

AX  *  <5>x 

Calculate  CnoJ^  as: 

uvqU  -  D^oj^ 

19.  Calculate  Xy  as: 

XD  =  XU  +^x 

20.  Using  Subroutine  ZMASS,  calculate  the  over-all  mass  flow 

0 

<p.U- 

23.  Using  Subroutine  MINT,  calculate 

24.  Using  Subroutine  MINT,  calculate 


21. 

22. 


0,  and  airf 

low  rate  a 

calculate 

<p.U- 

calculate 

^o)i-ST 

calculate 

calculate 

(K"2-")u^T 
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25.  Using  Subroutine  MINT,  calculate 

26.  Using  Subroutine  MINT,  calculate 

27.  Using  Subroutine  MINT,  calculate 

28.  Using  Subroutine  MINT,  calculate 

29.  Using  Subroutine  MINT,  calculate 

30.  Using  Subroutine  MINT,  calculate 

Steps  31  and  32  are  performed  only  if  the  nitric  oxide 
reaction  is  frozen  at  this  point  in  the  combustor. 

31.  Calculate  £no]Djj  as: 

1 


T 

(CC>)eXl> 


32.  Go  to  step  38. 

33.  Calculate  as: 


CNOj  -  O),,  * 


34. 


JDN 


**0  ~  ^ 

Using  Subroutine  RUNKUT,  calculate  the  value  of  £n5J 
and  q 

Steps  35  and  36  are  performed  only  if  !I<N 

35.  Calculate  II  *  II  +1 

36.  Return  to  step  20. 

Step  37  is  performed  only  if  intermediate  output  is  requested 
by  the  user. 

37.  Write  X0,  T,  ^  ,  D^o3Bf0  }  (r)0u_,  0^, 

and  fq . 

Steps  38  and  39  are  performed  only  if  J  *  1 

38.  Calculate 

-  L^oJ  i>N 

39.  Go  to  step  43. 

Steps  40-42  are  performed  only  if  l<J-<.5. 

40.  Calculate  T^iDl  as:  , 

c^o3= 

Step  41  is  perforned  only  if  0.005. 

41.  Go  to  step  48. 

42.  Reset  as: 


D*£>3i*)a~  Qjo] 
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43  Calculate  J  and  N  as 
J  =  J  +  1 
N  =  2N 

44.  Go  to  step  11. 

Steps  45  and  46  are  performed  only  if  J  =  5- 

45.  Write  the  error  message  stating  that  the  Runge-Kutta 
iteration  failed  to  converge.  Write  also  the  value  of 

ONo],  and  Xq; 

46.  Go  to  step  48. 

Step  47  is  performed  only  if  J  =  6. 

47-  Set  the  appropriate  indicator  to  indicate  that  this  is  the 
last  major  step  in  the  combustor. 

48.  Calculate  05(0  as 

DdO]  -  Q\K>3i>w 

49.  Calculate  75T  as 

MW  -  ^  *T  *  82-,OS"( /p 

50.  Calculate  and  l^HjbL3S: 

Lc^L  - 

Lc°L  ’  Uo)e,a'S/w 

joiJe.  '  MV 

51.  Calculate  ,  and-  l  as: 

[WO]  *  *  tXw/30,0 

[Not!  ' 

£jSc>3  =  0^2  +  rC  *iooo/(Mf)x^ 


52.  Calculate  ^Ccs)]- ,  I05}*.,  and  1°*^  as: 

I0fc 


1 
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-Je. 


as: 


53.  Calculate  jXc-o] ...  j  5nd' 

CCcSc.  *  CQ»iL‘| 

[ccOe.  *  LO>]t'(J 

Loia^  =  Daae*-^ 

54.  Calculate 

££4.*  LC^)lt*'l'Ji  *'DO°/  (%V 

i  -  tc^u*-  *>  *  “W  («v\it 

^cSd  =  p£|e*  1'4  *  moo/  (fc) 

Steps  55  and  56  are  performed  only  if  the  nitric  oxide  reaction 
is  frozen  at  this  point  in  the  combustor. 


55- 

Calculate 

☆ 

**  o  as 

• 

K  = 

4K  tsi‘J 

56. 

Calculate 

^  as: 

r 

4U 

<\)r) 

57. 

Calculate 

*r . 

1  inc 

as: 

I 

a 

00 

in 

Calculate 

^DIL 

and  of  as: 

^oSL. 

”r 

59. 

Calculate 

V  as: 

v -  ^ 

*  M** 

60. 

Calculate 

cp  as: 

13  -- 
» 

«-/( 
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61. 


Calculate 


I>N0Lx 


E^°1Ax  = 


62.  Calculate  nstep  as: 

=  ban  -*>)/& 


Step  63  >s  performed  only  if  ^  c*  ^ 

63-  Set  the  appropriate  indicator  to  indicate  that  the  nitric 
oxide  reaction  is  frozen  at  this  point  in  the  combustor. 

64.  Using  Subroutine  PRINTS,  write  the  output  for  this  axial 
station  in  the  dilution  zone. 

65.  Reset  £wo|_  as: 

t-®L  --.N 

66.  Reset  (^rr  as: 

(^)rr  ~  ^ 


Step  67  is  performed  only  if  the  appropriate  indicator  indicates 
that  this  is  the  last  step  in  the  dilution  zone. 

C'.  Go  to  step  75- 

Step  68  is  performed  only  if  the  nitric  oxide  reaction  is  frozen 
at  this  point  in  the  combustor. 

68.  Write  a  message  indicating  frozen  conditions  exist  in  the 
combustor. 

Step  69  is  performed  only  if  the  appropriate  indicator  has  been 
previously  set  to  indicate  that  the  nitric  oxide  reaction  is 


frozen. 

69.  Go  to  step  16. 

70.  Calculate  X^,^  as: 

X  •=  Xr  -X.. 

XXX  EhD  D 

Step  ?1  is  performed  only  if 

71.  Go  to  step  8. 


&>?  -d  Xxxx 
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72.  Calculate^  as: 

“  X  XXX 

73.  Set  the  appropriate  indicator  to  indicate  that  this  is  the 
last  step  in  the  dilution  zon' - 

~]k.  Go  to  step  8. 

75.  Return. 
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SdrtHOUTlNE  DILUTE  DIL*0000 

SEAL  MSTARDiNO,NOEQXD,NONO»MSTAHU  dil*ooio 

COMHON/OATAI/AIRISO) vRR(50) »XX(SO) »FF<50>  *BC0N1 ($0) *  BOON? ( 50 i ,CH2 (DXL?0020 
150)  »ZP{70)  «CUM0IS(70)  »VP,RHO(50)  »8C0Nfc(5G>  ,ATT  (50)  »PPP»FNGXP,Rl  {500IL«0030 
2)  »R6l5>01  *EK1  (50)  »EK2(50)  , A2* A3»XL,CN,BETA»S«PHIP,EXS«XEND* A1  OIL*004Q 

CO'<HON/OUT1/AVECSG*AVEC06,AVCH26»AVECSP»AVECOP*AVCH2P,AVECSD»AVECODIL<>0050 
lD,AVCH20«AVECSFfAVEC0F,AVCrt2F  OIL«OQ60 

C0HH0N/0UT2/AVENUG*  AVENOD , AVENOP* AVENOr *  AVENFU *  RRG* lLAST  0! L*00?0 

COHMON/OU73/INDIC*NO(50) *AV£T»TAUBAR,RH03AR*PrtI3AR*lMAX,XD,  DlL®0080 

1FBARD*XU«LEN,TaUINT»TAUDIL*vELOC  DlL®0090 

COMMUN/GUT4/CONGNOC50) *DELNQ(50> *AREAD» ASLOPE* DMFUOtSLOPE (50) »TSLODTL*OlOO 
1PE*NOP(50) ,£KKn»DMFT*UDM(50> ,DDM(50) »  F8(50) ,DMFUO»AlRD,DMFFEDDlL*OllO 

2,RSUdX,SIG*SIGZER*AVEMb,DHDDA(50) ,DMDDM(505  ,QHDDP(50) ,DHDDPP(50) »FDIL*0l20 


GO  TO  2000 


3PRIHE150) ,NOEOXD*ANO»AQQ»DIENO(50) ,NOZ£RD{50>  *SD0T(50) »£(50) 
COMhON/OUT5/«ST ARO ♦ H5T ARU 
C0HM.0N/cUT6/REAT*0tLL 

SET  INITIAL  INDICATORS,  CALCULATE  DELTAX,  CHEC<  X 

NPKlNTi:0 

LSGN=3 

INDIC=3 

IEN0D=0 

IF<S.£a.0.0)  ILAST=0 
DNO  =  ANO 

IFULAST.EQ.l)  60  TO  2000 
XU-XD 

TAUDIL=0.0 

a=AQQ 

DELTAX=0.1«RSU3X 
XDZ  =  XEND-XU 

IF(dELTaX.lE.XdZ)  GO  TO  200 
DELTAX  =  XDZ 
I£NDD=1 
200  CONTINUE 
C*»«» 

STORE  INITIAL  VALUES  FOR  BEGINNING  OF  EACH  MAJOR  STEP 

250  CONTINUE 

AIHXX  =  AIRD 
NONO  =  ONO 
QQ=G 

XXX  =  XD 

J=1 

V=20 

DDIFNO  =0.0 


GO  TO  200 


300 


SET  INITIAL  VALUES  EQUAL  JO  STORED  VALUES  EACH  TIME  N  CHANGES 


300  11=1 

IF(J.LO.l)  GO  TO  400 
AIRD  =  AIRXX 

XU=XXA 

3=QQ 

DNO  =  NONO 
400  EN=N 

DELX=0£LTaX/£n 

c*««« 

start  the  major  steps  down 

C»4*« 


The  combustor 


DIL°0130 
DlL^OlAO 
0IL*0150 
0lL®0l 60 
0IL*0I70 
DlL*OlBO 
DlL°0l90 
DIL°0200 
DlL°021 0 
DIL*0220 
0IL*0230 
DIL«0240 
DIL*0250 
DIL*02&0 
0IL°027& 
DlL*0280 
DIL*0290 
DIL®0300 
DIL«p3l0 
D1L*C320 
0IL*0330 
DIL*o340 
DIL«0350 
DIL<»o360 
DlL®0370 
DIl*03R0 
QIL-3O390 
OIL°0400 
oil® oAio 
DIL»0420 
0 IL*C430 
DjL®044f» 
0lL*0450 
0IL®04S0 
OIL-0470 
0IL-04SG 
DIL®0490 
OIL-0500 
D-L®05i0 
Olu®0520 
0ILC0530 
DIL®0540 
DIL®0550 
OIL®0560 
DIL°0570 
D1L®0580 
DIL®0590 


r- V;V  «i 


=S3v^^^?  -S2T  ■*£>*'“' ^3«r!«^*><^;I  ipwgf^ 


no 


SO  TO  2500 

01L*G600 

2000 

N=io 

0IL*Q&10 

iI=K 

OIL*4*20 

J=6 

0IL»0630 

DELX*X£ND-X0 

OIL»0540 

0ELTAX=q£lX 

UJL*0&50 

xu=xo 

DIL40660 

ANQ=0N0 

OIL*0670 

2500 

00  3000  II=1.N 

DlL*£)680 

XQ=XU*DELX 

014*0690 

CALL,  4MA5S10ELX) 

DIL*0?00 

C«»«« 

ClL^OTlO 

qooo© 

CALCULATE  NO  AT  XQ 

1>IL*0720 

£«»«•« 

DIL*0?30 

CALL  HiNT(itF9AR0«35*PF.RltRlLST) 

DIL*©740 

CALL  MlNT(lSrBAR0t35»FF»R6*R6LST) 

0IL*0750 

CALL  rilMl J1»FBAR0,35*FF»£K1»EK1LS' ) 

DIL*0?60 

CALL  MINT (1  * F8 ARO , 35 c FF » EK2 * EK2LST ) 

DIL*0770 

CALL  MINT  Cl t FBAR0»35»FF»BC0N6« YNOXD) 

OIL*0?80 

CALL  fclNTtl,F8ARD*35cFFtPH0»RHOBAR) 

011*0750 

CALL  MaNT(1,F8aRD,35»FF,ATT»AVET) 

0JL*0B00 

CALL  MiNTU,F8ARDf35»FF»BC0Ni,YCSXD) 

PIL*0510 

CALL  MlNTa»FBARO,35»FF,BCON2*YCOXD) 

DIL*0820 

C ALL  KJnT  a , FBARO , 35 , FF , CH2 * YCH2XD ) 

0IL*0830 

IF i ILAST .EO. 1 >  ONO=ANO«MST ARU/MSTARD 

0IL*0840 

♦ 

IFtILAST.EO.I5  GO  TO  4000 

DIL*0850 

STORE1  =  Rlil> 

DIL*0860 

5TORE2  s  06(1) 

0IL*0870 

STORES  =  £KI(1) 

)IL*0830 

ST0RE4  =  EK2HS 

OlL*0890 

Rltl)  *  R1LST 

□IL*0900 

R6d>  =  R6LST 

Dli.*09l0 

EK1  i  1 J  =  EK1LST 

OlL*0920 

EK2(1)  •-  EK2LST 

OIL*0930 

N0EQXP=YN0XD*30 . 0/ ( RHOBARo AY£T*82 . 057/PPP) 

DIL*0940 

CALL  fiUNKUT (XU,OELX.ONO,Q,LSGNt 1 ) 

0IL*0950 

RKli  =  STORE1 

0IL*0960 

R6(l>  =  STORE2 

DlL-^0970 

£Kl  =  5T0RE3 

DIL*0980 

EK2{1)  =  STORe.4 

DlL°099Q 

3000 

CONTINUE 

OIL*1000 

£«ee* 

0IL*1010 

write  control 

DlL*1020 

C<t*«» 

OIL* 1030 

IF (nPRINT.£Q,o)  60  70  4000 

DIL*1040 

WRITE  Co* 3500)  XD* J»RHC8AR*DN0»R£AT .DILL 

0IL*1050 

WRITE (6*9997)  DDIFNO.N 

0IL*1C*60 

3500 

rOR*44T  (9H  X(C«)  -  *E12»5?4HU  -  *I6*1»HAVE.  RHO  (5H/CC)  = 

*El2*5* 17H0IL“1 070 

LAVE.  NO (Gw/GM)  =  »E12.5*5X»2E12«5) 

DIL*10S0 

C»»»« 

0IL*1 090 

£oo-»o 

LOGIC  CONTROL  ON  J 

OIL*llOO 

QwOOv 

OIL*1110 

4000 

CONTINUE 

OIL*) 120 

50  TO  (41 00 .4300 *4300 *4300 *4600* 4800) *  J 

OIL* 1130 

4100 

DUMMY  -  DUO 

OIL*UAa 

GO  TO  4500 

0lL*1150 

4300 

DDIFNO  =  a35( (DN0-nUMHY)/0N0) 

0lL°ll60 

IF (OOlFNO.LT .0.005)  GO  TO  5000 

0IL*H70 

DUMMY  3  dno 

0:l*1180 

4500 

J=J*1 

OIL*1190 

! 


Hi 


N=2«N 

0lL*!200 

GO  TO  300 

DIL*l2lO 

4600 

*RITE(6, 47005  ODIFNCHN.XD 

0lL*=lZ20 

•V?0Q 

F0HmaT(///»69H  RUNSE-KUTTa  ITERATION  FAILED  TO  CONVERGE  TO  SPECIFIDIL*1230 

1ED  LIMIT. DIFNO  =  »E12.5*5h  H  =  *I4»5h  X  =  »£12.5»5h 

CMS.///)  0IL°1240 

GO  TO  5000 

DIL*1250 

4800 

IE«00  =  1 

0IL*12&0 

30-30 

CONTINUE 

DlL*l 270 

011*1280 

rfP.ITE  The  APPROPRIATE  OUTPUT  FOR  THIS  AXIAL  STATION 

DIL*1200 

OIL*1300 

AVENOG  =  DNO 

DIL*1310 

AVEMW~RhOsaR*AVET«R2.057/P?P 

DIL*1320 

6V£cSG=YCSXO*I2.0/AV£M?i 

OIL*1330 

AVtCOG=YCGXO*2R.C/AV£M«J 

0IL*1340 

AVCH2G=YCH2X0®14 . 0/A VE«* 

OIL* 1350 

AVEnOP=aVenOS*1.OE*C6*AVEMW/30.0 

0IL*1360 

AVEN00=AV£NQG»RH0BAS 

DIL*1370 

AVEn0F=a^cN'/6*HSTAR0o1000.  O/OMFT 

DIL*1380 

&V£CSP=AV£CS6*l.0E*06*AyEM^/12.0 

0IL*1390 

AVLCOP=AVEC06*l.fc£*06«AVEH»i/28.0 

OIL*1400 

AVCh2P=AVcH2G»1.0E+06*AVEM»!/14.0 

DlL*14in 

avEc^c=avecsg*rhobar 

0IL*1 420 

AV£cOO=AVECOv3*:phOBAa 

0IL*1430 

AVCH2D=aVcH2G*PH0BAR 

0IL*144G 

AVEcSF=AV£CSG*hSTARDo1000.0/DHFT 

0IL*1450 

AV-COF=AV£COG*MSTARO» 1000. 0/DMFT 

□IL*14&0 

AVCH2- =AVCH2G«MSTARO» 1000. Q/QHFT 

0lL*i470 

DIL*1480 

c«**» 

calculate  residence  times*  etc 

DILo1490 

c*®«* 

OlL*l500 

IFtILAST.EQ.l)  MSTaRO  «  0.5* JMSTARU+hSTaRD) 

0IL*1S10 

IFliLAST.tQ.l)  RHGBAR=0.5*(ShQ8AR*RR0) 

DlL*l520 

tau  =  DELTAX^PHOBAR^AREAD/HSTARD 

DIL*1530 

TaUI)IL=TAUDIL+  tau 

DIL*1540 

TaUBAR=TAU8AR*TAU 

0IL*1 550 

VELOC=MSTaRO/  CRH05AR»ARu.AD) 

DIL*15S0 

PhISARsF BaRO/ (EKS° { 1 .0-FBaRD) ) 

QIL*l570 

FuRaT=  t  AVENOF*AVENF'J}  /AVEnOF 

OIL* 1580 

ST£PS= (XENO-XU) /DELlAX 

DIL°1590 

IFiFUHAT*STEPS.LT.0.05)  IlAST  =  1 

DILo1600 

CALL  PRINTS 

DIL«1610 

0lL*l&20 

c«*«* 

CONTROL  OVERALL  STEPS 

DIL*1630 

0JL*164C 

AVEnFU=AVENOF 

0IL*I650 

SROshHOSAp 

oil* i6&o 

IF(IENDO.EO.I)  GO  TO  9000 

OIL*! 67C 

1 F (  jLAST  c£Q. I )  <s3IT£{6»v500> 

0IL*1S30 

9500 

FqRmsT  «/////♦  10X*42HNITRIC  OXIDE  REACTION  FROZEN  AT 

THIS  POIN'T*///DIL°1690 

i) 

OIL*l700 

ifulast.eo.d  GO  TO  2000 

0IL*1710 

XXXX-AEND-XU 

OIL*! 720 

iFlOSLTAit.LT.XXXX)  SO  TO  250 

OIL*! 730 

oeltax=xxxx 

0 1 L*  t  f  4 

I END 0=1 

OIL* 1750 

GO  TO  250 

OIL* 1? by 

9000 

RETURN 

DIL*1770 

9997 

FORMAT {20X*£iG.3*I5> 

0IL*179G 

END 

0IL*1790 
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APPENDIX  VII  -  SUBROUTINE  PRCALC 


The  function  of  Subroutine  PRCALC  is  ;to. calculate  the  average 
nitric  oxide  level  at  the  exit  of  the  primary  zoie  for  each  mixture  ratio 
element. 

Subroutine  PRCALC  is  called  by  Subroutine  PRIMRY;  it,  in  turn, 
calls  Subroutine  HINT.  Subroutine  PRCALC  doss  not  require  external 
input  and  does  not  provide  external  output  ekcept  for  an  error  message 
and  diagnostic  data  table.  External  output  is  wr'tten  directly  onto 
the  output-tape  unit.  Internal  input  and  output  are  transmitted  through 
CUHHCN  and  as  arguments  of  the  subroutine.  The  internal  input  consists 
of:  : 


ATT 

8C0N1 

8  CON  2 

BC0N6 

CH2 

CONGNO 

DELMD 

EK1 

EK2 

FBARD 

FF 

FNOXG 

I  MAX 

NOZERO 

P?  P 

RHO 

R1 

R6 

S 

The  internal 

m 

output  consists  of: 

AVET 

NO 

NOEQXD 

RH08AR 

TAU8AR 

The  external  output  consists  of: 
ALPHA2  DUMMY 


LIMIT 


SUMTNQ 


Additional  Fortran  Nomencl ature 

The  following  tabje  gives. the  Fortran  nomenclature  for  those 
symbols  in  Subroutine  PRCALC  which  are  not  included  in  COMMON. 


Fortran 

Symbol 

AAA(|) 


Symbol 

c*L> 


ALPHAO(l)  (  otD  ). 


C-  jcr iotion 

Ratio  of  NO  concentration  to  NO 
concentration  at  equilibrium  for 
a  mixture  element  i  at  the  end  of  the 
integration  interval 

Ratio  of  NO  concentration  to  NO 
concentration  at  equilibrium  for 
a  mixture  element  i  at  the  end  of  the 
integration  interval 


Units 


i 


H3 


Symbol  i 

Symbol 

Description 

Units 

ALPHAT ( 1 ) 

,  j 

Ratio  of  NO  concentration  to 

NO  concentration  at  equilibrium 
for  a  mixture  element  i  at! the  . 
mean  primary  zone  residence 
time  , 

ALPHAU(l) 

(*o)i 

Ratio  of  NO  concentration  to 

NO  concentration  at  equilibrium 
for  a  mixture  element  i  at  the 
start  of  the  integration  interval 

ALPHA1  ■ 

Ratio  of  NO  concentration  to  NO 
concentration  at  equilibrium  for 
a  mixture  element  *  'at 'the  start  of 
the  integration  interval 

ALPHA2 

<*2. 

Ratio  of  NO  concentration  to  NO 
concentration -at  equilibrium  for 
a  mixture  element  i  at  the  end  of 
the  integration,  interval 

ALPHD 

Wi. 

Ratio  of  NO  concentration  to  NO 
concentration  of  equilibrium  for 
a  mixture  element  i  .at 'the  end  of 
integration  interval 

ALPHU 

(<*y  )u 

t 

Ratio  'of  NO  concentration  to  NO  con¬ 
centration  at  equilibrium  for  a 
mixture  element  i  at  the  start  of 
the  integration  interval 

DAIP 

Integration  interval 

DALPHA 

UrOi 

Integration  interval 

DUMMY  ( I ) 

Dummy  variable 

EK1LST 

Wist 

Ratio  of  forward  reaction  rate 
constants  at  mean  primary  zone 
mixture  ratio  (Sac  Volume  2,  Section  2 

or  Ref  3l 

EK2LST 

(***)  1ST 

Ratio  of  forward  reaction  rate 
constants  at  mean  primary  zone 
mixture  ratio  (Sec  Volume  2,  Section  2 

or  Ref  3) 

EN 

r 

integration  step  size  control 

ERR  . 

■feerr 

Convergence  limit  • 

=FN0XG 

NO  formed  in  the  flame  front 
(mass  fraction) ' 

FT 

Fractional  mass  in  an  element 
rhat  has  a  residence  time  dt 
about t 

J 


m 


Symbol 

Symbol 

Descriotion 

FTD 

(?1 

Accumulated  mass  fraction 

leaving  element  before  -fep  * 

FTU 

Accumulated  mass  fraction 
leaving  element  before 

INDEX 

Indicator: 

INDEX  “  0  at  start  of 
i teration 

INDEX  -  1  if  convergence 
criteria  not  satisfied 


J 


JJ 


K 


LIMIT 


N 

REMAIN  (I) 

RilST 


R6LST 


n 

ISL. 


COlST 


Counter: 

J-^6  if  convergence  occurs 
on  Zi-Kp 

J  =  6  if  convergence  limit  is 
not  satisfied  on 

Counter: 

JJS2G  if  convergence  test 

on  ^«rem  3pplied 
JJ  it  convergence  test 

on  not  applied 

Indicator: 

K  -  1  if  first  integration 
step 

K  j*  1  if  other  than  first 
integration  step 

1  nc'icator: 

LIM1T~10  if  convergence 
occurs 

LIMITS  10  if  convergence 
criteria  not  satisfied 

Integration  step  size  control 

Fraction  of-  mass  remaining  in 
element  i  after  convergence  criteria 
satisfied 

Forward  reaction  rate  for  the 
first  kinetic  reaction  for  an 
element  at  mean  primary  zone 
mixture  ratio  (See  Volume  2,  Section 

2  or  Ref  3) 

Forward  reaction  rate  for  the 
sixth  kinetic  reaction  for  an 
element  at  mean  primary  zone 
mixture  ratio  (See  Volume  2,  Section 
2  or  Ref  3) 


STORE 1 


Dummy  variable 


Units 


gm-mole/cm 


3 


gn-mole/cm 


3 


-sec 

-sec 

-sec 
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Fortran 

Symbol 

Symbol 

Description 

Units 

ST0RE2 

ST0RE2 

ST0RE4 

Dummy  variable 

Dummy  variable 

Dummy  variable 

gm-mo.e/ 

cm^-sec 

SUtfT  (1) 

Sum  to  time  t  of  the  mass 
fractions  in  an  element! 

SUMTNO  (1) 

Sum  to  time  t  of  the  products 
of  the  mass  fraction  and  NO 
concentrations  in  an  element  i 

TO 

^=-D 

Time  at  en*J  of  integration 
interval 

sec 

TIMEN 

■tn 

Characteristic  time  used 
to  calculate 

sec 

TT 

-fcfc 

Dummy  variable 

sec 

ITS 

Time  at  end  of  integration 
interval 

sec 

TTU 

Time  at  start  of  integration 
interval 

sec 

TU 

to 

Tima  at  start  of  integration 
interval 

sec 

YCH2XD 

Equilibrium  mole  fraction  of 
unburned  hydrocarbons  exclusive 
of  C(s)  and  CO  for  an  element 
at  the  mean  primary  zone  mixture 
ratio 

YCOXD 

Equilibrium  mole  fraction  of  CO  for 
an  element  at  the  mean  primary 
zone  mixture  r„tio 

YCSXD 

Equilibrium  nr>le  fraction  of  C,  \ 
for  an  element  at  the  mean 
primary  zone  mixture  ratio 

YNOXD 

LNc^IeyxI) 

Equilibrium  mole  fraction  of  NO  for 
an  element  at  the  mean  primary  zone 
mixture  ratio 

Analysis  Procedure 

The  step-by-step  procedure  of  Subroutine  PRCALC  is'given 
below.  Tne  Fortran  listing  of  the  subroutine  is  presented  at  the 
conclusion  of  the  step-by-step  procedure. 


1. 
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Estimate  as: 

Wt  -  o. s 

2.  Calculate  as: 

(?c o  Cnc?J  -  o 

M  if  ttiDll  *  o 

Step  3  is  performed  only  if  the  chemical  reaction  rate  is  not 

significant. 

3.  Go  to  step  10. 

4.  Using  Subroutine  PRRAT,  calculate  a  value  of  time  which 
corresponds  to  the  estimate  of 

5-  Calculate  as: 


Steps  6  and  7  are  performed  only  if  JK  p/  0-05  . 

6.  Reestimate  (^7.)^ 

Step  7  is  performed  only  if  the  number  of  iterations  on 

are  less  than  10. 

7.  Go  to  step  4  . 

8.  Calculate  (50^)^  as: 

-  ^2)1 

Step  9  is  performed  only  if  the  number  of  iterations  on 
equal  10. 

9.  Write  the  value  of 

10.  If  this  is  not  the  last  element  in  the  array,  go  to  step  \ • 

11 .  Initialize  n  as: 

10 

Step  12  is  performed  only  if  =  0. 

12.  Go  to  step  50. 

Step  13  is  performed  only  if  the  chemical  reaction  rate  is  not 
s i gnif i cant. 

13-  Go  to  step  50. 
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14.  Calculate  and  -fey  as: 

-  fe4l/n 

=  O 


15*  Calculate  (f*-i>);_as: 

(^p) L  -  + 

Step  16  is  performed  only  if  (<*,&)  ^7*  1.0  . 
16.  Recalculate  as: 

(*•!>) 


18. 

19- 

20. 

21. 

22. 

23- 

24. 

25- 

26. 

27- 


T 

COsSepiD 


Steps  17  through  27  are  performed  only  if  S0~  O 

17*  Using  Subroutine  HINT,  calculate  (R ^ ^ 

Using  Subroutine  HINT,  calculate  (RY  _ 

'  w  U5 1 

Using  Subroutine  MINT,  calculate 
Using  Subroutine  HINT,  calculate 
Using  Subroutine  HINT,  calculate  Qv!c>Ie*y0 
Using  Subroutine  HINT,  calculate  f> 

Using  Subroutine  HINT,  calculate 
Using  Subroutine  HINT,  calculate. 

Using  Subroutine  HINT,  calculate 
Using  Subroutine  HINT,  calculate 
Calculate  as: 

irtdkx  =  WgA>3Q.O^ 

'  ^  ^  *  T  *  S’ 2.  OS7 

28.  Using  Subroutine  PRRAT,  calculate 
Step  29  is  performed  only  if  S*>=0 

29.  Calculate  Q  as: 

G>  -  O 

Steps  30  through  32  are  performed  only  for  the  first  integration 
step. 

30.  Calculate  as: 

“  0 

31.  Reset  (c<o)'u  and  -fcu  as: 

■co  —  4£ 
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32.  Go  to  step  15. 

33*  Calculate  4%  as: 

34.  Calculate  as: 

u  -  -k 

35*  Calculate  tip  as: 

36.  Calculate  ?t jL^bio,  and  2-b-uo 
37*  Reset  (c^o)^and  as: 

"to  -  t=4> 

Step  38  is  performed  if  the  convergence  criteria  on 
are  not  satisfied  but  those  on^.^  are. 

38.  Go  to  step  45. 

Step  39  is  performed  if  tt  <  5“ r 
39*  Go  to  step  15- 

Steps  40  through  42  are  performed  if  the  convergence  criteria  on 
"S-^-uo  are  not  satisfied. 

40.  If  the  number  of  iterations  on^^equal  6  go  to  step  43- 

41 .  Reset  r>  as: 

n  -  2.A 

42.  Go  to  step  14. 

43.  If  the  number  of  iterations  on^-fc+jo  are  equal  to  6,  write 

a  diagnostic  statement  identifying  element  and  the  last  two 
values  of 

44.  Calculate  (  t$C  )^3s: 

^=4)1  - 

45.  Calculate  as: 

tV^x-e.jL.  "I  w- 
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Step  46  is  performed  if  l^5 

46-  Go  to  step  48. 

Step  47  is  performed  only  if  the  number  of  iterations  on 
are  less  than  or  equal  to  20. 

47-  If  convergence  criteria  on  are  no*  satisfied, 

reset  (£*4  as: 


and  go  to  step  15- 

48. 

Calculate 

and 

030 

49- 

•Reset  n  as: 

n* 

50. 

if  this  is  not  the 

last 

element  in  the  array,  go  to  step  12 

51. 

Return . 
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C**«* 

c***« 

c*«** 


SUBROUTINE  PRCALC { FNOXG)  PRC*0000 

REAL  n0  PRC«0010 

DIMENSION  SUHTNC  (50)  fOUMHY (50) #SUHT  f 50) #ft£MAIN{50)  »ALPKAT (50) * ALPHPRC«0020 
1AU(50> »ALPHAO(50)  PRC»0030 

COMK0N/DATA1/AIRC50) #RR(5C) *XX(5C > ,FF (50) »BC0N1 (50) »8C0N2 (50) »CH2 (PRC*0040 
150>  tZP(70) ♦CUM0ISC70) *VPtRHO{50) »BCOn6(30) #ATT(50> #PPP*FN0XP#R1 (50?RC*0050 
2) *R6(50) *£K1 (50) »EK2(50) *A2» A3,XL*CN,BETA,S,PHIP,EKS,XEND. A1  PRC*0060 

COMMON/ OUT3/INQ I C . NO  J 50 ) ♦ A YE  T  *  TAUB Aft ♦ RH08AR  *  PHI 8 AR  » I MAX , XD ♦  PRC*0  0  70 

lF8ARD*XUtLEN»TAUlNT»TAUDlLtVEL0C  PRC*0080 

COMMON/ OUT 4/CDN6N0 (50)*OELMD(50) #AREAD#ASL0PE, DMFUO. SLOPE (50) «TSLOPRC*0090 
1PE*nOP{50} »EKKO*OMFT  »UDM(50) *DDM(50.' «  F8I50) »OMFUD*AIRO»OMFFEDPRt*OlOO 

2#RSUBXtSlG#SIGZER* AVEM* #DMDOa (50) ♦0M0DM(50) »0MD0P(501  »OMDDP?(50)  »FPRC*0ll0 
3PRIHE(50) ,NOEQXD*ANO»AQQtOlFNO(50) ♦N0Z£RO{50) »RDOT(50) *E{50)  PRC*0120 

PRC*0130 


50 


C*««® 

C***«* 

100 


SET  INDICES# INITIAL  VALUEStETC. 

TTJ  =  0*0 
TTS=0.0 

DO  50  I  =  1,50 
NO(I)  =  0,0 
CONTINUE 

DO  1000  I  si, I MAX 
ALPHAH=0.5 
LIMIT  =  0 

IFICONGNOm.EQ.O.O)  ALPHAU(I)  = 
IF(CONGNO{I),NE.O.O)  ALPHAUdi  s 
IF(nOZERO'I).eq.I)  GO  TO  1000 
ALPHA1  s  ALPHAL'il) 

dalp=alphai 

CALCULATE  THE  VALUE  OF  ALPHA-TAU 


0.0 

FNOXG/CONGNOU) 


208 


308 

1009 

C**«* 

C«*#« 

c***» 


c»#»* 

c**«# 


TT  =  TTU 
LIMIT=LIMIT®1 

CALL  PRRAT(ALPHA1,ALPHA2,TT*I) 

AAA=ALPHA2 

ERR=(1.0-{TT/TaUBaR) ) 

IF(A33{ERR)-o,05)  300*200,200 
AlPhA2=AAA*(AAA-DALP)*(TAu8Ar-tT)/(TT-TTS) 
IF(aLPha2.LE.0.0)  ALPHA2  =  AAA/2. 
IF(ALPha2.GT.1.0)  ALPHA2=1.2*AAA 
IF(ALPha2«GT.1.0)  ALPHA2=o,998 
dalp=aaa 

TT5=TT 

IF(LIMIT.LT.IO)  60  TO  100 
ALpHAT { I } =ALPHA2 

IF(LlMIT.EO.lO)  WRITE (6*9997)  ALPHA2.LIHIT 
CONTINUE 

3EGIN  NO  CALCULATIONS  FOR  THE  ITH  ELEMENT 

N  =  10 
EN  =  N 

DO  5000  I  =1 » I MAX 
NO  ( I )  =  ALPHA'J(I) 

IF(dELMO(I) .EQ.O*0)  60  TO  4000 
IF(N02£R0CI) .EQ.l)  60  TO  4000 

SET  ADDITIONAL  INDICES# INITIAL  VALUES»ETC. 


PRC*0l40 
PRC*0150 
PRC*0160 
PRC*0l70 
PRC*0180 
?RC®0190 
PRC*0200 
PRC*0210 
PRC*0220 
PRC*0220 
PRC®0240 
PRC*0250 
PRC*0260 
?RC*0270 
PRC*0280 
PRC*0290 
PRC*0300 
PRC*0310 
PRC*0320 
PRC*0330 
PRC*0340 
PRC*0350 
PRC*0360 
PRC°037u 
PRC®0380 
PRC®0390 
prc*04oo 
PRC*0410 
PRC®0420 
PRC®0430 
PRC®0440 
PRC°0A50 
PRC«0460 
PRC«0470 
PRC°04B0 
?RC*0490 
PRC°0500 
PRC® 05 10 
PRC®0520 
PRC®0530 
?RC®0540 
PRC®0550 
PRC*0560 
PRC«0570 
?RC*0580 
PRC*0590 
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INDEX  =  0 
J  =  1 
JJ=1 

DUMMY  U)  =  o.O 
1150  DALPHAsftLPHAT(I)/EN 
SUHTNO(I)  s  o.O 
SUMT(I)  =  0.0 
K  =  0 

ALPhU=ALPhAU(I) 

TU=0*0 

1200  alphD=alphu>dalpha 

C***» 

C****»  PRRaT  OVERWRITTEN  if  ALPHD.GT.0.99 

c**»* 

IF(ALPHD.GT.l.O)  ALPHD  »  1. 

TT=TU 

C*»** 

C****  SPECIAL  CASE  S=0.0  IN  PRIMARY  ZONE 

c**«* 

IFtS.NE.O.O)  GO  TO  1210 

CALL  «INT(1*F8AR0,35»FF,R1.R1LST) 

CALL  MINT (1*FBaRD*35»FF»R6*R6LST) 

CALL  «INT (l ,F0ARD,35»FF,EK1 tEKlLST) 

C ALL  M l nT (1 »  FB ARD ♦ 35 ♦ FF  t  EK2  *  EK2LST  > 

CALL  MI NT ( 1 , FB ARf , 35 . FF , BC0N6 . YNOXD ) 

CALL  MlNTci.FBARD.35*FFtRH0*RH0BAR) 

CALL  MINT (l.FBARD,35*FF, ATT* AVET) 

CALL  MinT C1*FBaRD»35»FF*BC0N1»ycSXD) 

C\LL  MINT (1 . FBARD . 35 . FF ♦ BC0N2 « YCOXD > 

CALL  MINT { 1 ♦FBARD.35.FF.CH2* YCH2XD) 

ST0RE1  =  R1 ( I) 

ST0RE2  a  R6U> 

ST0RE3  *  EKim 
ST0RE4  a  EK2(I) 

RHIl  =  RlLST 
R6(I>  *  R6LST 
EKl(I)  -  EK1LST 
EK2 { I )  =  EK2LST 

NOEQXD=YNOXD*30.0/tRHO3AR«AVET*82.057/PPP) 
1210  CALL  PRRATCALPHU»ALPHD»TT.D 
IF(S.NE.O.O)  GO  TO  1220 

am)  =  storei 

R6(I)  =  ST0RE2 
EKltD  =  ST0RE3 
EK2(I)  =  ST0RE4 
AQQrO.O 
1220  CONTINUE 
K  = 

IFCK.NE.l)  GO  TO  1251 
FTUaO.O 

alphu=alPhd 

TU=tT 

GO  TO  1200 
1251  TD=TT 

TIMEN=0.5*{TU>TD) 

FTO=l» 0-EXP (-TIHEN/TAU8AR) 

FT=*F  rO-FTu 
FTU=FTo 

TU=TO 

ALPriU=ALPHD 


PRC*0600 
?RC°0610 
PRC*0620 
PRC*0630 
PRC*0640 
PRC*0650 
PRC°0660 
PRC*0670 
PRC*06BO 
?RC*0690 
?RC*0700 
?RC»0710 
PRC*0720 
PRC*0730 
?RC*0740 
PRC*0750 
PRC*0760 
?RC*0770 
PRC*0730 
PRC*0790 
?RC*0B00 
PRC*0810 
PRC«0820 
PRC*0830 
?RC*0840 
PRC*0850 
PRC*0860 
PRC*n870 
?RC*0880 
PRC*0890 
PRC*0900 
PRC*0910 
?RC*0920 
PRC«0930 
PRC*0940 
PRC*0950 
PRC*0960 
PRC*0970 
PRC«0980 
PRC°0990 
PRC°1 000 
PRC*i010 
PRC*1020 
PRC«1030 
PRC*1040 
PRC*1050 
PRC*1060 
PRC*1070 
PRC^IOF.O 
PRC*1090 
PRC*1 100 
PRC®1 110 
PRC*1120 
PRC°1130 
?RC°1 140 
PRC°1 150 
PRC^lltO 
PRC®1170 
PRC*118G 
PRC^l 190 
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SUMT(I)  =  SUMTCIWFT 

SUHTNC ( I ) sSUMTNO < I ) ♦ALPHU*CONGNO ( I ) «F T 
IFdN'JEX.EQ.l)  GO  TO  1400 
IF(TT;LT.5.0*TAUBAR)  60  TO  1200 

IF<aBS{ (SUMTNO<I)-OUKMY(I) )/SUMTNO(in .LE.0.01  )  60  TO  1300 
IFU.E-Q.6)  60  TO  1300 
EN  =  2.o*£N 
OUMMY(I)  =  SUMTNO (I) 

J  =  J*1 
GO  TO  1150 

1300  IF(J.NE.6)  60  TO  1350 

WRITE<6«9000)  SUMTNOtl) ♦DUHMY(I) »I 

9000  FO«MAl (55H  POTENTIAL  ERROR  DUE  TO  LACK  OF  CONVERGENCE « SUMTNO ( I ) * 
1E15.8»2X#26HPRI0R  VALUE  OF  SUMTNO(l)s  »E15.8t2Xt3HI*  ,12///) 

1350  0ALPHA=5.0*0ALPHA 
1400  REHaIN(D  =  l.-SUMT(I) 

IF(REMAIN(I)*C0N6N0(I)  .GT.0.001*SUM7NO£in  INOEX  *  1 

IF(SUMTNOH)  .LT.1.0E-05)  GO  TO  1500 

JJ=JJn 

IF(JJ»6T.20)  GO  TO  1500 

IF(R£MAIN{I)*CONGNO{I)  .GT.0.001°SUMTNO(I))  OALPHAaALPHATlI) 
IF(REMAIN{I)*CONGNO(I)  »GT »0»OOl1*SUMTNO { I ) )  GO  TO  1200 
1500  SUMTNO ( I ) =SUMTnO ( I ) ♦ (CONGNO l I ) *ALPHU*REMAIN ( I ) ) 

NO  £  1 1  =  SUMTNO ( I > 

£N=EN/8. 

4000  CONTINUE 
5000  CONTINUE 
9997  FORMAT (357 *E12«5*I6) 

RETURN 

ENO 


PRC*1200 
PRC°1210 
PRC°1220 
PRC*1230 
PRC*1240 
PRC°1250 
PRC*1260 
?RC*1270 
PRC*1280 
PftC°l290 
PRC*1300 
PRC*1310 
»PRC*1320 
?RC°1330 
PRC«1340 
?RC*1350 
PRC*1360 
PRC*1370 
PRC»1330 
PRC*1390 
PRC»1400 
PRC*1410 
PRC*1420 
PRC*1430 
PRC*1440 
?RC*1450 
PRC*1460 
PRC* 1470 
PRC*1480 
PRC*1490 
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APPEND IX  VI  1 1  -  SUBROUTINE  PRRAT 

The  function  of  Subroutine  PRRAT  is  to  solve  the  analytical 
expression  relating  nitric  oxide  concentration  to  time. 

Subroutine  PRRAT  is  called  by  Subroutine  PRCALC;  it  does  not 
call  any  other  subroutines.  Subroutine  PRRAT  does  not  require  external 
input  and  does  not  provide  external  output.  Internal  input  and  output 
are  transmitted  through  COMMON  and  as  arguments  of  the  subroutine.  The 
internal  input  consists  of: 


CONGNO 

EK1 

EK2 

FINIS 

1 

INIT 

R1 

R6 

RHO 

TIME 

The  internal  output  consists  of: 
TIME 


Additional  Fortran  Nomenclature 


The  following  tab.le  gives  the  Fortran  nomenc  1  ature  for  those 
symbols  in  Subroutine  PRRAT  which  are  not  included  in  COMMON: 


Fortran 

Symbol  Symbol  Description  Units 


A 

A 

Constant 

B 

B 

Constant 

D 

D 

Constant 

DUMMY 

C1 

Dummy  variable 

DUMMYA 

c2 

Durrany  variable 

DUMMYB 

C3 

Dummy  variable 

E 

E 

Co^tant 

FINIS 

<°Wi 

Ratio  of  NO  concentration 
to  NO  concentration  at 
equilibrium  for  an  element 
of  mixture  ratio  F  and 
pressure  P  at  the  end  of 
the  integration  interval 

cm^/gm-mol e 

gm-mole/cm^- 

sec 

gm-mol e/ cm^_ 
sec 

cm^-sec/gn- 
mol  e 
3 

cm  -sec/gm-rnole 
3 

gm-mol e /cm  _ 
sec 


Fortran 

Symbol 


1 

INIT 


TIME 


Symbol 


Description 


(  oC.  .  )  • 

v  init  i 


t  and  tr 
o  f 


index  of  the  element  Ir.  question 

Ratio  of  NO  concentration  to 
NO  concentration  at  equilibrium 
for  an  element  of  mixture  ratio 
F  and  pressure  P  at  the  start 
of  the  integration  interval 

Value  of  time  at  start  of  in¬ 
tegration  interval  (-bo)  and 
at  end  of  integration  interval 
(4p) 


Units 


sec 


Analysis  Procedure 

The  step-by-step  procedure  of  Subroutine  PRRAT  is  given  below. 
The  Fortran  listing  of  the  subroutine  Is  presented  at  the  conclusion 
of  the  step-by-step  procedure.  . 

1.  If  (  )-u  is  greater  than  0-39,  then 10^  •  Go 

to  step  10. 

2.  Calculate  A  * 

3-  Calculate  B  = 


4.  Calculate  D  = 

5.  Calculate  E  = 

6.  Calculate  C^  * 

7.  Calculate  C^  * 


B<k»Vu 

e  -^.yp 

tL2‘~  T>2 


8.  Calculate  C^  * 


9.  Calculate  t^  » 


10.  Return. 


C 1  *  D  ~ 

4=0  "*■  A.  lL"tC‘  ^'*CJ  *  ^  R 

r  r  r.  r  )  ( i  —  i] ") 

L.  L  IDt  £*(.*,/it) 4)  0“ 
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SUBROUTINE  pfiR&TUNlT*FINIS«TlME*n  PRR*0000 

R£At  iNlT  PRR*0010 

COMMON/OATA1/AIR(50) .RH(50>  »XX{50) ,FF{50) ,BC0N1 £50)  tBCON? (50)  »TH2 (PRR*0020 
150) »2P (70) »CUM0IS(70) *Vp«RHO(50) «8CON6(50) *AfT(50) *PPPtFNOXP»Rl (SuFRR*Q030 
2) »ft6<50) » EK1 (50) »EK2(50) »A2t A3«XLtCN»BETA,S»PHlP»EXS»XENDt Al  PRR*0O4O 

COMHO.N/OUT4/CONGNO(50)  *DELMD(So)  » AREAD* ASLOPE* OMFUO» SLOPE (50 )  * tsloprr^oobo 
1PE*nOP(50) ♦EKKO»OMFT.UDM{50) »QDH(50) t  F8(50) »DMFUD» AIRD»DMFF£QPRR«0060 
2»RSuBX,SIG»SIG2£R*AVEMW,OM0Da(50) *DMODM(50) *DKD0P(50) tOMDDPPCSO) rFPRR*0070 
3PRImE(50) »NOEGXn»ANO»AOO*nlFNO(SO) »N0Z£R0(50) tRDOT(SO) ♦SUEAC50)  PRR*0030 

C****  PRR*0090 

C**«*  CALCULATE  CONSTANTS  ?RR*PlOO 

C****  PRR*OllO 

IF(FIN1S.GT.0.99)  GO  TO  2000  PRR*0l20 

A  =  (2.0®30.0i/(RHO(I)»CONGNO(I))  PRp^OlTO 

3  =  ( I)/ ( 1  .♦EK2 CD  )  PRR*0l40 

D  =  R1'.D*8  PRR*0l50 

£  =  6*EK1(X)  PRR*0l60 

OUMhY  *  (£*EKl£l>-D)/(E*E-D*D>  PRR°£ll70 

DUMMY  A  s  CE«*EKl  (I)*D)  /  (E®E*"0*D)  PRR*0l80 

C****  PRR*0190 

C«*«»  CALCULATE  TIME  PRR*0200 

C**°*  PRR*0210 

DUMMY ci  =  ((1.^FINIS)*(1.-INIT))/U1.-FINIS)*(1.*INIT))  PRR*0220 

TIME  =  (1 ./A) * { ( 0.5*DUMMY*ALOG (DUMMYB) > ♦ (DUMMYA*ALOG ( { (D*E*FINIS) *PRR*0230 
lSQRT (1 •-INIT*INIT) )/ ( (0*E*INIT)*SQRT (1.-FINIS*FINIS) ) ) ) >*TlM£  PRR*0240 

GO  TO  1000  *  PRR*0250 

2000  TIME  =  10«0*TIM£  PRR*0260 

1000  RETURN  PRR*0270 

£n°  PRR*0280 
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APPENDIX  IX  -  SUBROUTINE  MINT  ' 

The  function  of  Subroutine  MINT  is  to  provide  an  interpolated  ; 
value  of  a  tabulated  function  of  one  variable  assumipg  a  linear, 
logarithmic,  or  exponential  relationship. 

Subroutine  MINT  is  called  by  Subroutines  PRCALC,  Z1NTER,  DILUTE, 
CALC8C,  and  ZMASS;  it  does  not  call  any  other  subroutines.  Subroutine 
MINT  does  not  require  external  input  and  does  not  provide  external  output. 
Internal  input  and  output  are  transmitted  as  arguments  of  the  subroutine. 
The  internal  input  consists  of: 

ILN  NTAB  X  XTAB  /  YTAB 

The  internal  output  consists  of: 

Y 

Fortran  Nomenclature 

Tne  following  table  gives  the  Fortran  .nomenclature  for  those 
symbols  used  in  Subroutine  MINT.  Since  the  subroutine  may  be  used  with 
any  consistent  set  of  units,  the  units  of  the  symbols  are  not  specified. 

Fortran 

Symbol  Symbol  Description  Units 

A  a  Coefficient  in  the  expression  for 

Y  as  a  function  of  X 

B  b  Coefficient  in  the  expression  for 

Y  as  a  function  of  X 

ILN  Indicator: 

1LN*1  if  ’inear  interpola¬ 
tion  is  required 
IIN=2  if  logarithmic  inter¬ 
polation  is  required 
1LN=3  if  exponential  interr 
polation  is  required 


N 

n 

Index  of  the  tabular-  entry 

NTaB 

N 

Number  of  tabular  entries 

N1 

nl 

Index  of  the  tabular  entry 
preceding  X 

N2 

n2 

Index  of  the  tabular  entry 
following  X 
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■Fortran 

Symbol 

Symbol 

1 

: Description 

X 

Value  of  the  independent  variable 
at  which  interpolation  is  required 

XTAB(N) 

Tabular  entries  of  the  independent 
variable 

XI 

Value  of  the  independent  variable 
.  at  rig 

X2 

n2 

Value  of  the  independent  variable 
at  n2  ; 

Y 

Y 

t 

The  value  of  the  dependent  variable 
to  be  interpolated 

YTAB(N) 

*  A. 

Yn 

Tabular  entries  of  the  dependent 
variable  : 

Y1 

1 

Y"1 

Value  of  the  dependent  variable 
at  p.j 

Y2 

Yn2 

Value  of  the  dependent  variable 

at  n2 

i 

Analysis  Procedure 

The  steprby-step  procedure  of  subroutine  MINT  is  given  below. 

The  Fortran  listing  of  the  subroutine  is  presented  at  the  conclusion 
of  the  step-by-step  procedure. 

1.  If  there  is  only  one  tabular  entry,  sety-Y,  and  return. 

2.  If 'linear  or  logarithmic  interpolation  is  specified,  exclude 

extrapolation;  that  is, 

set  Y=Y,'  if  *j 

set  Yn  if  x 

and  return  . 

3.  Determine  the  tabular  entries  nj  and  n?  between  which  X 

1  lies..  : 

4.  Exclude  those  cases  for  which  the  interpolation  formulas 

will  degenerate,  that  is 

set  Y  -  -^(Yn,  -r \,-u)  if 

or,  set  Y-  Xn,  if  Yn.-Yr^ 

5*  If  linear  interpolation  is  specified,  set 

Y.  —  CCt  bX 
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where  CX  —  \n(  —  b**n, 

and  b  =  /  (k'Xn2..~'^0|  / 


and  return  . 

6.  If  logarithmic  interpolation  is  specified,  set 

Y  - 


where 


and 


x  -  InCYr),^  -  bAn, 

b  =  IftCW'fn.V C/Xnx'  lAn,) 


and  return  . 


7.  If  exponential  interpolation  is  specified;  set 

Y  =  <x/xb 


where 


and 


CX  =  ^n, 

b  =  lnC\r»,/Xn^/io(,Xn2./Xn1) 


and  return . 


oo 
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SUBROUT I NE  MI NT ( I LN ♦ X  *  NT AB . XTAB  *  YT AB , Y ) 

interpolation  of  a  function  of  one  variable  using  a 
OF  METHODS 

DIMENSION  XTAB(1)»YTABU) 

CHECK  IF  THERE  IS  ONLY  ONE  TABULAR  ENTRY 

IF  (NTab.NE.1)  60  TO  10 
Y=YTAB(l) 

RETURN 

CHECK  FOR  EXTRAPOLATION  IF  Y=A*B*X  OR  LN(Y)=A*B/X 

10  IF  (ILN.EQ.3)  GO  TO  50 
IF  (X.GT.XTABQ))  GO  TO  20 
YsYTAS(l) 

RETURN 

20  IF  (X.LT.XTABtNTABn  60  TO  SO 
Y=YTAB(NTAB) 
return 

find  The  tabular  entries  BETWEEN  WHICH  X  LIES 

SO  00  100  N=2,NTAB 

IF  (X.GT.XTAB(N))  GO  TO  100 
M2=N 

GO  TO  200 
100  CONTINUE 
N2=NTAB 
200  N1=n2-1 

Xl=XTA8(Ni) 

X2=XTAB<N2) 

Y1=YTAB{NiJ 

Y2=YTAB(N2) 

CHECK  FOR  SPECIAL  CASES 

IF  (Xl.NE.X2)  GO  TO  300 
Y=0.5»(Y1>Y2) 

RETURN 

300  IF  (Y1.NE.Y2)  GO  TO  400 
Y=Y1 
return 

400  GO  TO  (500*600,700) »ILN 

INTERPOLATE  FOR  Y  USING  Y=A*8*X 

500  B=(Y2-Y1)/(X2-X1) 

A=Y1-B*xi 

y=a*.b*x 

return 

INTERPOLATE  FOR  Y  USING  LN(Y)=A*3/X 

600  3=ALCG{Y2/Yl)/(1.0/X2-1.0/Xl) 

A=ALOG(Y1)-B/Xi 

Y=EXP<A*3/X) 

return 


MIN«0000 
MIN*0&10 
MULTIPLICITY  MiN*o020 
MTN*0030 
MJN*0040 
MIN*0050 
M'N»00&0 
MIN«0070 

MINcnOof, 

MIN*C090 
«IN*0l00 
HIN*011G 
MIN*0120 
IS  BEING  USEDMiN*0l30 
MIN*0l40 
MIN»0150 
MIN*0160 
MIN*0170 
MIN*0180 
MIN*Cl90 
MIN»0200 
MIN»0210 
MIN*0229 
MIN*»o230 
HIN*0240 
«IN*o250 
MIN*0260 
MIN*0270 
MIN*02B0 
MIN*0290 
MIN«0300 
MIN»0310 
MIN«o320 
min*o33o 
MIN^q340 
MIN»0350 
MIN*0360 
MIN»o370 
MIN*0330 
MIN*q390 
MIN*0400 
MIN°0410 
MIN*o420 
MIN*0430 
MIN*0440 

MIN*o450 

MIN«04S0 

MIN»G470 

MIN»0480 

MIN«0490 

MIN»0500 

MIN»0510 

«IM*05H0 

MIN*0530 

MIN°C540 

MIN«055fi 

MIN«o550 

MINcoS70 

min*osbo 

MIN*0590 


interpolate  for  y  using  y=a/x*«b 

700  3=AL0G(Y1/Y2)/AL0G{X2/X1) 
A=Y1*A1**B 
YrA/X»*B 

return 

ENO 


'ilNooGOO 

MIN*0610 

MIN*0620 

MIN*0630 

«IN«0640 

MIN*0650 

MIN*0660 

K1N*0670 
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APPENDIX  X  -  SUBROUTINE  CALCBC 

The  function  of  Subroutine  CALCBC  is  to  calculate  the  value  of 
the  mass  flay  coefficient  at  each  axial  station  in  the  combustor  primary 
'and  intermediate  zones. 

Subroutine  CALCBC  is  called  by  Subroutine  ZMASS;  it,,  in  turn, 
calls  Subroutine  MINT.  Subroutine  CALCBC  does  not  require  external 
input  and  does  not  provide  external  output.  Internal  input  and  output 
are  transmitted  as  arguments  of  the  subroutine  and  through  COMMON.  The 
internal  input  consists  of: 

CUMDiS  MSTARD  ZP  ZPD 

The  internal  output  consists  of: 

C 


Additional  Fortran  Nomenclature 

The  following  table  gives  the  Fortran  nomenclature  for  those 


symbols 

in  Subroutine 

CALCBC  which  are  not  included  in  COMMON. 

Fortran 

Symbol 

Symbol 

DescriDtion 

Units 

C 

%  ' 

Mass  flow  coefficient 

gm/sec 

PI 

Value  of  the  cumulative 
distribution  at  Zp 

normal 

P2 

Value  of  the  cumulative 
distribution  at  -Zp 

normal 

ZPD 

% 

Limit  of  integration  of 
normal  distribution 

the  cumulative 

Analysis 

Procedure 

The  step-by-step  procedure  of  Subroutine  CALCBC  is  given  below. 

The  Fortran  listing  of  the  Subroutine  is  presented  at  the  conclusion  of  the 
step-by-step  procedure. 

1.  Using  Subroutine  MINT,  calculate  Pj 

2.  Calculate  p£  as  : 

fa-  l-?l 
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3*  Calculate 


4.  Return: 


CXD  as: 

c*0.= 
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SUBROUTINE  CALCBC(ZPD«C)  cal*oooo 

REAL  MSTARDtMSTARU  CAL*0010 

COHMON/oatai /A I R ( 50 j .RR(50)  »XX(50) »FF(50>  *BC0N1 (50) tBCON2 (50) ,CH2 (CAL*0020 
150) *ZP(70) *CUMOIS(70) *VP*RH0(50) *BCON6(50) *ATT(50) »PPP*FftlOXP*Rl (5OCAL*0O3O 
2)  *R6(J>0)  »EK1  (5o)  *EK2 (50)  *A2*A3»XL*CN, BETA*StPHIP» EKS,X£IID*A1  CAL*5040 

COMmON/oUT5/MSTARO*MSTARU  CaL*0050 

CALL  MlNT(l,ZPD»7CtZP*CUMDlS,Pl)  CaL^OOSO 

P2  =  1.0-Pl  CAL*0070 

C  =  MSTARD/(P1-P2)  CAL*0080 

RETURN  CAL«0090 

END  CAL*OlOO 
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APPENDIX  XI  -  SUBROUTINE  CHECKK 

The  function  of  Subroutine  CHECKK  is  to  calculate  the  proportion¬ 
ality  constant  between  the  mass  flow  rate  out  of  an  element  due  to  mixing 
and  the  total  mass  flowing  into  it.  Subroutine  CHECKK  is  celled  by 
Subroutine  ZINTER;  it  does  not  call  any  other  subroutines.  Subroutine 
CHECKK  does  not  require  external  input  and  does  not  provide  external 
output.  Internal  Input  and  output  are  transmitted  as  arguments  of  the 
subroutine  and  through  COMMON.  The  internal  inp».t  consists  of: 


A2 

A3 

CN 

DELX 

DMFUO 

I  MAX 

MSTARU 

SLOPE 

UDM 

XD 

XL 

XU 

The  internal  output  consists  of  : 
E  EKKD  RDOT 


Additional  Fortran  Nomenclature 

The  following  tabl.e  gives  the  Fortran  nomenclature  for  those 
symbols  in  Subroutine  CHECKK  which  are  not  included  in  COMMON. 

Fortran 


Symbol 

Symbol 

Description 

Units 

DELX 

integration  interval 

cm 

-1 

cm 

DUMMYA 

Dummy  vari able 

RDOTT 

Rr 

Total  rate  of  change  of  unburnec 
fuel  with  axial  position  in  the 
combustor 

gm/ sec- 
_cm 

Analysis  Procedure 

The  step-by-step  procedure  of  Subroutine  CHECKK  is  given  below. 
The  Fortran  listing  of  the  subroutine  is  presented  at  the  conclusion 
of  the  step-by-step  procedure. 

1.  Calculate  K^  as: 

Kd  —  Cn/xu 

Calculate  as: 

/S* 


2. 
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3.  For  the  element  in  question,  calculate  EL^  and  R^as: 

=  Ko 

Rl  -  ir  <&«V 

Step  4  is  performed  only  if  ”  O 

4.  Go  to  step  7* 

5.  Calculate  as: 

.  m  -  -  [  ^2  -  Si] /«s*0- 

Step  6  is  performed  only  if  Kj> 

6.  Calculate  Ej  as: 

Et=  1.1  at 

7.  If  this  is  the  last  element  to  be  considered  go  to  step  8. 
If  not,  return  to  step  3* 

8-  Return  • 


\ 


SUBROUTINE  CHECKKCOELX)  SK2!?! 

real  mstaru  ■  c1k*So4S 

DIMENSION  DUMMYA  (50)  **  Uucu 

COMmON/oATA1/AIR(50) »RR(50>  *XX(50) »FF(5Q)  *8C0N1 (SO) »8C0N2 (50) #CH2 *£H**®^® 
150) *2° (70) ♦CUMDIS(70) »VP*RHO(50) »BCON6(50) *ATT(50) »PPP«FNOXP.Rl (50CHK  0040 
2)  tR6(&0)  »EK1  (50)  »EK2(50>  »A2»A3«XL»CN.BETA»S*PHIP»EKS»XEND« A1 
COMMON/OUT3/INDlCtNO(50) » AVET»TAUBaR» RHOBARf’HlBAR* IMAX* XD*  CHK  0060 

ifbard.xu.len.tauint.taudil*veloc  ,  T(>iA  ' 

COMMON/oUTA/CONGNO (50) »DELRO(50) » AREAD»ASLOPE*DMFUO*SLOPE (s0>  tTSLOCHK  0080 
1?E*N0P (50) *EKKD*DMFTtUDM(50) *DDM(50) ♦  F8(S0) ♦DMFUD*AIR0*DMFF£DCHK*0090 

2*RSU8X,SlG»SIGZER» AVEMW*DMDDA (50) *DM0DM(50) *0KDDP(50) ♦DHDDPP(50) '('CHK^OlOO 
3PRIME (50) tNOEQxDt ANOt AQQtDl^NO (50) »NOZERO(50) »RD0T (50) »E(50)  CHK*0ll0 


COHM0N/0UT5/HSTARDtMSTARU 

C«««» 

c««»«  CALCULATE  k 

c***» 

EKKO=CN/XL 

c**«« 

c«*«*  CHtcK  K  VALUE 

c**»* 

RDOTT  =  DMFU0*A3*( ( (XO/XL) **A2) •( (XU/XL) **A2) ) /DELX 

00  1000  I=1*IMAX 

E(I)*EKK0 

ROOT (I)  =  RD0TT*UDM( I) /MSTARU 
IF(UDM(I) .EQ.0.0)  GO  TO  1000 
DUMMYA(I)  s  «(SL0PE(I>-RD0T(I))/UDH(I) 

IF(OUMMYA(I)  .GE.EKKO)  E ( I ) *1  •  1*DUMMY Ad) 

1000  continue 
RETUr'o 
END 


CHK*0l20 

CHK*0l30 

CHK»0lA0 

CHK*0150 

CHK*0l60 

CHK®0170 

CHK*OlB0 

CHK*0l90 

CHK«0200 

CHK*0210 

CHK*0220 

CH.<»0230 

CHK«0240 

CHK«0250 

CHK*0260 

CHK*0270 

CHK*0280 

CKK*0290 
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APPENDIX  XII  -  SUBROUTINE  RUNKUT 

The  function  of  Subroutine  RUNKUT  is  to  obtain  the  solution  of 
a  first-order  ordinary  differential  equation  by  the  Gill  variation  of 
the  Runge-Kutta  method. 

Subroutine  RUNKUT  is  called  by  Subroutine  Z INTER  and  DILUTE;  it, 
in  turn,  calls  Subroutine  DERIV.  The  subroutine  does  not  require 
external  input  and  does  not  provide  external  output.  Interna)  input 
and  output  are  transmitted  as  arguments  of  the  subroutine.  The  internal 
input  consists  of: 

DELX  1  LSGN  Q.  XD 

Y 

The  internal  output  consists  of: 

Q.  XU  Y 

Fortran  Nomenclature  for  Subroutine  RUNKUT 

The  following  table  gives  the  Fortran  nomenclature  for  those 
symbols  used  in  Subroutine  RUNKUT.  Since  the  subroutine  may  be  used  With 
any  consistent  set  of  units,  the  units  of  the  symbols  are  not  specified* 
The  subscript  K,  where  it  appears,  is  the  index  of  the  step  in  the 


Runge-Kutta 

solution. 

Fortran 

Symbol 

Symbol 

Descr lot  ion 

A(K) 

ai 

A  set  of  constants  used 
termine  DIFF 

to  de- 

3(K) 

h 

A  set  of  constants  used 
termine  DIFF 

to  de- 

C(K) 

ci 

A  set  of  constants  used 
termine  Q. 

to  de- 

D(K) 

A  set  of  constants  used 
termine  X 

to  de- 

DELX 

h 

Increment  In  the  ind&nendent 

variable  across  which 
differential  equation  is  to 
be  solved 
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Fortran 

Svmbol 

Svmbol 

Descriot ion 

DELY 

k* 

i 

Product  of  YPRIME  and  DELX  at 
each  stage  of  the  solution" 

DlFF 

A.Y 

The  change  in  the  value  of 
the  dependent  variable  at 
each  stage  of  the  solution 

1 

Index  of  element 

K 

I 

Index  of  the  stage  of  the 
sol ut i on 

LSGN 

Indicator: 

LSGN=1  if  intermediate  zone 
and  not  the  lest  step  in  the 
zone 

LSGN=*2  if  inten  jte  zone 

and  the  last  step  in  the  zone 
LSGN=3  if  dilution  zone  or 
dilution  zone  type  calculation 

a 

qi 

Quantity  used  to  calculate  DlFF 
at  each  stage  of  the  solution; 
the  value  of  Q  in  the  final  stage 
cf  the  solution  is  a  measure  of  the 
round-off  error  in  Y 

X 

xi 

Value  of  the  independent  variable 
at  each  stage  of  the  solution 

Y 

YPRIME 

Y. 

f(Xj.Xj) 

Value  of  the  dependent  variable 
at  each  stage  of  the  solution 

Value  of  at  each  stage 

of  the  solution 

Analysis  Procedure 

The  s tep-J>y-s tep  procedure  of  Subroutine  RUNKUT  is  given  below. 
The  Fortran  listing  of  the  subroutine  is  presented  at  the  conclusion 
of  the  step-oy-step  procedure. 

1.  Calculate  the  value  of  the  independent  variable  at  the 
given  stage  i-  '»f  the  solution  as 

2.  Using  Subroutine  DERIV,  calculate  the  value  of 
at  the  given  stage  of  the  solution. 
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3*  Calculate  hi  at  the  given  Ttage  of  the  solution  as; 

k  - 

4.  Calculate  the  change  in  the  dependent  variable  at  the 
given  stage  of  the  solution  as: 

‘‘i.+Ui.-bauu 

5-  Calculate  the  value  of  the  dependent  variable  at  the  given 
stage  of  the  solution  as: 

Xl  -  Yl-i 

Step  6  is  performed  only  if  .  Ify^O  go  to  step  7* 

c 

6.  Set  Yi.  -  O  . 

7-  Calculate  as: 

%  - 

8-  if  this  is  the  last  stage  of  the  solution,  go  to  step  9* 
if  not,  return  to  step  1. 

9*  Return  . 


iljO 

SUBROUTINE  RUNKUT  ( X ♦  OEi.X .  Y  ♦  Q . LSGN ,  I ) 

DIMENSION  A(4) «Bt4l *C(4) *D<4)  ,  ,  .  , . 

DATA  <At I). 1=1*4) /O.SoO. 2928932* 1.7071068,0 » 1666667/. (8 (I) *1=1*4) 
1/2. 0*1. 0*1. 0*2.0/* (C (I) *1=1 *41/0.5.0. 2928932*1. 7071068*0. 5/* 

2(D(I> *1=1*4) /0. 0*0. 5*0. 0*0*5/ 


C**«* 

C**«* 

c#*#* 

C**»* 
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RUN«UT  -  SOLUTION  OF 
BY  THE  GILL 


A  first  order  ordinary 
VARIATION  OF  the  RUNGE' 


DIFFERENTIAL 
•KUTTA  METHOD 


EQUATION 


DO  100  K=1 *4 

X  =  X*D(K)*OELX 

CALL  DERIV(X*Y*YPRIM£*LSGN»I) 

DELY  =  YPR1ME*DELX 

DIFF  =  AtK)*(DEtY-8(K)*Q> 

Y  =  Y+DIFF 

IFtY.LT. 0.0)  Y=0 .0 

Q  =  Q*3. 0*OIFF«C  tK) *DELY 

RETURN 

ENO 


RUN*0000 

run* oo io 

RUN«Q020 

RUN'»6030 

RuN«0040 

RyN*0050 

RUN*0060 

RUN*0070 

RUN*0080 

RUN*0090- 

RUN*0l0G 

RUN*0ll0 

RUN»0120 

Run* olio 

Run* o 140 
RUN*0l50 
RUN*0l60 
RUN*0170 
RUN*0l80 
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APPENDIX  XIII  -  SUBROUTINE  DER1V  . 

The  function  of  Subroutine  OERIV  is* to  calculate  the  rate  of 
formation  of  nitric  oxide  with  respect  to  axial  distance  in  the  combustor 
intermediate  or  dilution  zone. 

Subroutine -OERIV  is  called  by  Subroutine  RUNKUT;  it  does  not 
:  call  any  father  subroutines.  Subroutine  DERIV  does  not  require  external 
input  and  does  not  provide  external  output.  ;  internal  input  and  output 
are  transmitted  as  arguments  of  the  subroutine  and  through  COMMON.  The 
•  internal  input;  consists  of: 


AREAD 

ASLOPE 

CONGNO 

DDM 

DMDDP 

E  ■ 

EK1 

EK2 

FNOXP 

1 

LSGN 

MSTARD 

NO 

NOEQXD 

NOP 

NOZERO 

ROOT 

R1 

R6 

SLOPE 

UDM 

XD 

Y 

The  internal 

output  cons1 sts  of: 

DILL 

REAT  ; 

YPRIME 

Additional  Fortran  Nomenclature 

;  «  Z 

I 

The  following  table. gives  the  Fortran  nomenclature  for  those 
symbols  in  Subroutine  DERIV  which  are  not  included  in  COMMON. 


Fortran 

Symbol 

DFLAME 


DMIXT 


Symbol 

(p  \ 

v  fftm'TOT 


Description 

Rate  of  change  of  elemental  NO 
concentration  w:ith  axial  position 
in  the  combustor  intermediate  zone 
due  to  formation  of  "prompt  NO" 

Total 'rate  of  change  of  elemental 
NO  concentration  with  axial  position 
•in  the  combustor  intermediate  zone 
due  to  mixing 


Units 


1A2 


Fortran 

Symbol 

Symbol 

Description 

Units 

DMIX1 

WJ, 

Rate  of  change  of  elemental 

NO  concentration  with  axial 
position  in  the  combustor 
intermediate  zone  ^ue  to 
mixing  into  the  element 

-1 

cm 

DM  1X2 

Rate  of  change  of  elemental 

NO  concentration  with  axial 
position  in  the  combustor  in¬ 
termediate  zone  due  to  mass 
change  mixing  term 

-1 

cm 

DM  1X3 

Rate  of  change  of  elemental  NO 
concentration  with  axial 
position  in  the  combustor 
intermediate  zone  due  to 
mixing  out  of  the  element 

-1 

cm 

FNOXG 

NO  formed  in  the  flame 
front  (mass  fraction) 

l 

•• 

i 

Index  of  element 

LSGN 

indicator: 

LSGN=1  if  intermediate 
zone  and  not  the  last 
step  in  the  zone 

LSGN=2  if  intei mediate 
zone  and  the  last  step 
in  the  zone 

LSGN=3  if  dilution  zone 
or  dilution  zone  type 
calculation 

RAT 

JWl 

Lw 

Ratio  of  NO  concentration  to  NO 
concentration  at  equilibrium  for 
an  element  of  mixture  ratio  F 
and  pressure  P  at  axial  position 
■Xq  ;  ratio  of  NO  concentration  to 

NO  concentration  at  equilibrium  at 
axial  position 

X 

Xo 

Axial  position  (downstream)  in  the 
combustor 

cm 

Y 

Nitric  oxide  concentration  for 
an  element  of  mixture  ratio  F 
and  pressure  P  (mass  fraction) 
at'Xp;  nitric  ox>de  concentration 

at'XD 
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Fortran 

Symbol 

YPRIHE 


Svmbol 

p&oj] 

L  slx  Jxp 

raotfl 

l  **  JXp 


Description 

Rate  of  change  of  elemental  NO 
concentration  with  axial  position 
in  the  combustor  intermediate 
zone;  rate  of  change  of  NO  con¬ 
centration  with  axial  position 
in  the  combustor  dilution  zone 


Units 


-1 

cm 


Analysis  Procedure 

The  step-by-step  procedure  of  Subroutine  DER1V  is  given  below. 
The  Fortran  listing  of  the  subroutine  is  presented  at  the  conclusion 
of  the  step-by-step  procedure. 

!.  Calculate 

Steps  2  through  5  are  performed  only  in  the  dilution  zone  or  for 
a  dilution  zone  type  calculation.  _ 

2.  If  then  calculate  ^  as: 

iM]  ^ 

x  —i 


O 


3.  If  DVJCQ^^O^  go  to  step  18. 

4.  Cal  cul  ate  as : 


w  * 

5.  Go  to  step  9  . 

6.  Calculate 

as: 

L  J 

Xj> 

1  -  r> 

L  ^ 

Step  7  is  performed  only  if  =  0  or  if  the  chemical 

reaction  rate  is  not  significant. 

7.  Go  to  step  18  . 

8.  Calculate  as: 


W;  - 


9*  Calculate  (fO^cfc  * 

Steps  10  through  13  are  performed  in  the  intermediate  zone 
except  for  the  last  step  in  the  zone. 

10.  Calculate  (ffcA  ,  Cwk  ,  and  • 

11.  Calculate  ({\ni*W  as: 

12.  Calculate  [  as: 

13*  Go  to  step  18, 

Steps  14  and  15  are  performed  only  for  the  last  step  in  the 
intermediate  zone. 

r  ^rrto.T? 

as: 


14.  Calculate  [5!g3J 


fa  piogl  = 

d*  J** 


*»> 

CO 


react 


15.  Go  to  step  18  . 

Steps  36  and  17  are  performed  in  the  dilution  zone  or  for  a  -dilution 
zone  type  calculation. 

16.  Calculate  Cr)j>ji_ 

17*  Calculate  F^  QJcQ~7  as: 

L_  "Six  JXj, 

18.  Return  . 


1*5 


SUBROUTINE  DERIV(X,Y,YPRIHE*LS6N*I)  DEa*OCOO 

REAL  MSTARD«MSTARU.NOP»NOEQ*D»NO  0£Rc00] 0 

COMHON/OATA1/AIR{50}»RR(50) *XX(50) .FFC50) «BC0N1 C5Ci *8CON2 (50) »CH2 CDER»0020 
150)  »ZP{70)  *CUH0IS (70)  *VP,RKO{50)  »BCON6C50>  *ATT(50)  *P'»P*FN0XP*R1  {5CDER»o030 
2) .R6(5o) »EK1 (50) »£K2C50) *A2»A3.XL*CN,BETA,S,PHIP,EKS.XEND* A1  DER*o040 

COMMON/OUT3/INDIC*NOi50)*AVET*TAUBAR*RHObAR«PHl'BAR»lMAX,XD,  DER»0050 

1FBARO»XU»LEN,TaUINT,TAUDIL»VELOC  0EH*0050 

COHMON/OUT4/CONGNO{50) #DELXD<50> tAREAD*ASLOPE*0MFU0»SLOPE(50) fTSLO0ER<»0070 
1PE»N0P(50) *EKKD*OHFT*UOM<50> .0DM{50) *  FB(50) »DM!*'jD*AlRDsDMFFEDDER®0090 

2tRSUBX,si6*SIGZER»AVEMi<»DM0DA(S0) *DHDDM<50) .DMDDPC50) *DHDDPP(50) *FDER«0090 
3PRIME150)  ♦NOEQXD»ANO*AQQ»Dl*-'NO(SO>  .N0ZER0C50) .RD0TC50)  *EC50)  0£R60100 


500 


750 


COMMON/ 0UT5/MSTAR0.MSTARU 
C0MM0N/0UT6/REAT»0ILL 
FNOxG  *  FnOXP*1.0E-06* 130.0/28,0) 

IF(lSGn.NE.3)  GO  TO  500 
IF(NOEQXO.EQ.CiO)  YPRIME  «  0,0 
IF(NOEQXO.EQ.O.O)  GO  TO  4000 
RAT  «  Y/NOEQXD 
GO  TO  750 

continue 

YPRIM£*o.O 

IFCCONGNOCD.EO.O.O.OR.NOZEROCD.EQ.I)  GO  TO  4000 
RAT  *  Y/CONGNOCI) 

CONTINUE 


0ER*0110 

0ER*0120 

0ER°0130 

0ER*0I40 

OER*Cl50 

OER»ol60 

DER*0170 

OER*0180 

0ER*0190 

DER*0200 

0ER*0210 

0ER*0220 

0ER*0230 


YPRIMEc*({2.0*30.0)/(HSTARD/AREAD))*C1.0-RATJ,kAT)*URl{I)/a.0*{RA0ER*0240 


10G0 


2000 

3000 

4000 


1T*EK1(I))))*(R6CI)/(1.0*EK2CI) ))>) 
REAT  »  YPRIME 

GO  TO  (1000*2000*3000) *LSGN 
OMIX1*(DMODP(I)»RDOTCI) )*NOPCI> 
0Mlx2*E { I ) *UDM ( I ) *NO  C I ) 

0Mlx3cSL0PE (I) *NO { I ) 

DFLAME  »  FNOXG*RDOT(I) 

DMlxT  =  DMIX1-DHIX2-0MIX3*0FLAME 
0HIXT*0MIXT/DDM(I) 

YPRIME  „  DHIXT*REAT 
GO  TO  4000 
YPRIME  «  REAT 
GO  TO  4000 

DILL  *  -CY/MSTARD)*ASLOPE 

yprime«yprime*oill 
return 

EMD 


DtR*0250 

DER*0260 

DER*0270 

DER*0280 

DER*0290 

DER*0300 

OER*0310 

DERo0320 

DER°0330 

DER*0340 

0ER*0350 

OER*0360 

0ER«0370 

DER°0380 

0ER*0390 

DER*0*00 

OER*0410 
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APPENDIX  XIV  -  SUBROUTINE  ZMASS 

The  function  of  Subroutine  ZMASS  is  to  determine  the  mass  flow 
in  each  element  of  the  distribution  function  at  a  prescribed  axial 
station  in  a  gas  turbine  combustor,  in  addition,  ZMASS  calculates 
the  mean  mixture  ratio,  total  mass  flow,  and  the  airflow  rate  at 
each  of  these  axial  stations. 

Subroutine  ZMASS  is  called  by  Subroutines  PRIMRY,  Z INTER,  and 
DILUTE;  it,  in  turn,  calls  Subroutines  CALCBC  and  MINT.  The  subroutine 
does  not  require  external  input  but  does  provide  external  output. 
Internal  input  and  output  are  transmitted  as  arguments  of  the  sub- 


routine  and  through  COMMON. 

The  internal 

input  consists 

of: 

AIR 

Al 

A2 

A3 

BETA 

CUMD1S 

DDM 

DELX 

EKS 

FF 

INDIC 

MSTARD 

PHIP 

PPP 

RR 

S 

VP 

XD 

XL 

XU 

XX 

ZP 

The  internal 

output  consists 

of: 

AIRD 

AREAD 

ASLOPE 

DDM 

DELHD 

DMFFED 

DMFT 

DMFUD 

DMFUO 

FB 

FBARD 

IMAX 

MSTARD 

MSTARU 

NOZERO 

SIG 

SIGZER 

SLOPE 

TSLOPE 

UDM 

The  external 

output  consists 

of: 

AFR 

DDM 

FEDF 

FULOAD 

IHIGHD 

ILOWD 

Additional  Fortran  Nomenclature 

The  following  table  gives  the  Fortran  nomenclature  for  those 
symbols  used  in  Subroutine  ZMASS  which  are  not  included  in  COMMON. 

Symbol  Description  Units 

A  Lower  integration  limit  for  the  evaluation 

of  the  cumulative  normal  distribution 
integral 


Fortran 

Symbol 

A 
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Fortran 

Symbol 

Symbol 

Descriotlon 

Uni  ts 

ADDH 

S«)A 

Dummy  variable 

gm/sec 

AFR 

A/F 

Over-all  ai.*-to-fuel  ratio 

A1R1 

^1 

Airflow  rate  at  the  primary  zone  exit 

gm/sec 

AIRU 

(«A>Xu 

Airflow  rate  at  the  upstream  axial 
integration  limit  of  the  combustor 

gm/sec 

S 

B 

Upper  integration  limit  for  the  evaluation 
of  the  cumulative  normal  distribution 
integral 

C 

Cv 

XD 

Mass  flow  coefficient 

gm/sec 

DELX 

Sx 

Increment  of  the  combustor  length  across 
which  the  solution  is  generated 

cm 

DUMMY 

(^DUM 

Dummy  variable 

FEDF 

(Hf)f 

Total  mass  of  fuel  fed  into  the  combustor 

Ib/hr; lb/sec 

FJLOAD 

¥ 

Fuel  loading 

lb/sec-ft^-atm' 

1 

i 

Index  of  the  element 

IHiGHD 

^  !H  1  GH*^D 

Subscript  of  the  mass  element  with  the 
highest  equivalence  ratio  (downstream  end  of 
integration  Interval) 

1HIGHU 

^HiGH^J 

Subscript  of  the  mass  element  with  the  highest 
equivalence  ratio  (upstream  end  of  integration 
interval) 

1LCWD 

Olow)d 

Subscript  of  the  mass  element  with  the  lowest 
equivalence  ratio  (downstream  end  of  integration 
interval) 

1L0WU 

(lLCW)u 

Subscript  of  the  mass  element  with  the  lowest 
equivalence  ratio  (downstream  end  of  integration 
interval) 

IN 

Counter;  indicates  first  mass  element  with  zero 
mass  at  upper  end  of  equivalence  ratio  distribu¬ 
tion  function 

KKOUNT 

SlOUNT 

Indicator 

KKOUNT  =  0  if  FB(l)^.2F  for  the  element  i 
KKOUNT  -  1  if  FB(1)t2F  for  the  element  i 
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Analysis  Procedure 


The  step-by-step  procedure  of  Subroutine  ZMASS  is  given  below. 
The  Fortran  listing  of  the  subroutine  is  presented  at  the  conclusion 
of  the  step-by-step  procedure. 

Step  1  is  performed  only  for  the  primary  zone. 

1.  Calculate  (1low)d  and  OhJGH^D  as: 

Olow)d  *  0 
^'high^d  *  50 

2.  Calculate  Olow^u  and  ^H1Gh)u  as: 

( 1  LOW^U  =  ^ 1  LOVpD 

(‘high^u  "  ^high)d 

3.  Initialize  Nn 

4.  Calculate  Nnn  as: 

^nn  =  Nn  +  ^ 


5.  Initialize  ^.Srtl^'as: 

•  . 

6.  Using  Subroutine  HINT,  calculate 

7«  Using  Subroutine  HINT,  calculate 

8.  Using  Subroutine  HINT,  calculate 

9.  Using  Subroutine  HINT,  calculate  ^  ^ 

10.  Calculate  A  yn  as: 


11.  Calculate  as: 

(.KU  -- 

Step  12  is  only  performed  in  the  intermediate  and  dilution  zones. 

12.  Calculate  the  fuel  loading,  C|>  as: 

^  ^  V (^5^  *  V?  *  ?Z  ) 

Step  13  is  performed  only  in  the  intermediate  zone  and  if  /I\y  =  0. 
13«  Write  the  fuel  loading,  Vp  . 

14.  Calculate  (M^)q  and  (Hf)f  as 

-  (WfW—is’-l 

15.  Calculate  the  over-all  air-to-fuel  ratio  A/F  as: 

a/f  -  MaL,  /ku 

16.  Readjust  the  units  on  (H^)^  from  lb/sec  to  lb/hr. 

Step  17  is  only  performed  for  the  primary  zone. 

17*  Write  (H^)^  and  A/F. 

Step  18  is  performed  only  in  the  dilution  zone. 

18.  Calculate  as: 

Step  19  is  performed  only  in  the  primary  and  intermediate  zones. 

19.  CalculateQA^  as: 

CwwX=0W)o[i-M^f] 


/fftJHfiVIM  I*###,. 
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20.  Calculate  as: 

* 

21.  Calculate  M  ..  as: 

M  ®  0  in  the  primary  2one 

A”  ^ 

M”y  =  H  u  in  the  intermediate  and  dilution  zones 

22.  Calculate  M*Q  as: 

K  - 

23.  Calculate?  as: 

p  _ 

Step  24  is  only  performed  in  the  primary  zone. 

24.  Calculate  as: 

«%>  So*F 

25.  Ca'culate  c  as: 

«■'  <=■„  [i  - 

Steps  26  and  27  are  performed  only -in  the  dilution  zone: 

26.  Recalculate  <£•  as: 

c ?  ■=  O 

27.  Go  to  step  91. 

Step  28  is  performed  only  if  Sc=  0. 

28.  Go  to  step  31. 

29.  Calculate  2?  as: 

YH 

1  P/s - 

30.  Using  Subroutine  CALCBC,  calculate  Cx^. 

Step  31  is  performed  only  in  the  intermediate  and  dilution  zones. 

31.  Go  to  step  36. 

32.  Calculate  (Fg)j  as: 

(fb)i  =  0. 

Step  33  is  performed  for  each  boundary  i  satisfying  the  criteria 

2.  i  l  i  Nn 
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33*  Calculate  (Fg) -  as: 

(Fb)l  -  -fe  iFi.  -*  Fl-») 


34-  Calculate  (Fb)u  as: 

”nn 


35-  Go  to  step  41. 

Steps  36- and  37  are  perfo»med  for  each  element  i  satisfying  the  criteria 

-  1  —  Wwse 


36.  Calculate  as: 

(Srni^u  =  o 

yj.  Calculate  as: 

'VSttCfc  *° 


in  the  primary  zone 

in  the  intermediate  and  dilution  zones 


Step  38  is  performed  only  if  L,^  * 

38.  Go  to  step  41. 

Steps  39  and  40  are  performed  for  each  element  i  in  the  array 
satisfying  the  criteria  (£»wvx.-+-l)  ^  i  ^  N  • 

39*  Calculate  as: 


40.  Calculate  (5^0^  as: 

<S*)u  -  O 

41.  Calculate  as: 
lMWC  =  50 

Step  42  is  performed  only  for  the  special  case  that  S^*=  0  in  the 
primary  zone. 

42.  Go  to  step  44. 

43.  Go  to  step  49. 

Steps  44  through  48  are  performed  for  each  element  i  in  the  array 
satisfying  the  criteria  1  <.  ■  S: 

44.  Calculate  and  (^Wlj^  for  the  next  element  as: 

o 

Step  45  is  performed  only  if  (Fg)j  *£.  F. 


45.  Go  to  step  44. 

46.  Recalculate  as: 
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i 

I 

i 

I 


»  i 

“  C*“  l 

47.  Calculate  (s«4,  and  ^1^55  as: 

fewilX  » 

Ml)»  * 


48.  Go  to  step  92. 

49.  Initialize  the  indicators  KCOUNT  and  K-KOUNT *as 


^  COUNT 
KK0UNT 


0 

0 


Steps  50-85  are  performed  for  each  element  i  in  the  array 
satisfying  the  criteria  2.  c. ■£=. 

Steps  50  and  51  are  performed  only  if  the  element  i  Is  . 
equal  to  Nnf). 

50.  Calculate  ImM  as: 


Wv\y«  Nnn-T 

51.  Go  to  step  75. 

Step  52  is  performed  only  if  -s  2.7 

52.  So  to  step  54. 

53.  Calculate  (]Fb)i>oa  j  (feOe ;  L-hax  ?  ■,and  ^Kootfr 

(FbW  « 0=»k 

( Fe\.  ^  2r 

4-tfAX  ■=■  0-1 

^Kooirr  ~  * 


54.  Calculate  the  distribution  integration  limits  as: 

A.  l(n Oi-Pl/s- 


as: 


Steps  55-  and  56  are  performed  only  if  A  7/  0. 

55*  Using  Subroutine  MINT,  calculate  Pj,  the  value  of  the  normal 
distribution  integral  from  -  to  A. 
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56.  Go  to  step  60. 

57.  Calculate  A  as: 

A  “  -A 

58.  Using  Subroutine  MINT,  calculate  the  value  of  the  normal 
distribution  integral  from  -  00  to  A 

59*  Recalculate  P^  as 

P  =  1-p 
*1  1 

Steps  60  and  61  are  performed  only  If  8  <?-0. 

60.  Using  Subroutine  HINT,  calculate  P^»  the  value  of  the  normal 
distribution  integral  from  -  co  to  B. 

61.  Go  to  step  65. 

62.  Calculate  B  as: 


B  «  1-8 


63.  Using  Subroutine  MINT,  calculate  the  value  of  the  normal 
distribution  integral  from  -ooto  B. 

64.  Recalculate  as: 

P  «  1-p 
'2  2 

65.  Calculate  as: 


Step  66  is  performed  only 

66.  Set  (lLQW)D  equal  to 
Step  67  is  performed  only 

67.  Go  to  step  69. 

Step  68  is  performed  only 

68.  Set  (lLGW)D  equal  to 
Step  69  is  performed  only 
6*.  Reset  KC0UNT  as: 

kcount  =  1 

Step  70  is  performed  only 


if  (sro:\ 7  0. 


1. 

if  (i 


LOW^D 


7 


0. 


if  0  and 

i-l. 

if  i.Wi)570. 


if 


*  0  and  if 


kcount  "  J* 

70.  Go  to  step  7?. 

Stfcp  71  is  performed  only  if  (i-l)  * 

71.  Go  to  step  74. 
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72.  Calculate  as: 

£  i  -  <-  CSiHh)* 

73.  Go  to  step  S3. 

74.  Calculate  fe"i  as : 

fe4  = 

75.  Calculate  ^  (&rtU-t)  p , ant5  C^mi&h)o  bs: 

^L-)z  -  A\  -  ‘zSWi 

(J-H16-h\  “  l~\ 

76.  Go  to  step  81. 

77.  Calculate  arrf  as 

^J>  “*  £-S%  ■*■ 

l^Wl-Oo  ^  o 


78.  Caluclate 


^ 


and  as . 


^HhiS-w)p  ~  <-'2- 

t  /  -> 

=  2 


Step  79  is  performed  or.’,-/  if  kkQUNT  *  K 
79-  Calculate  {jV)r*M<*2.  aS: 


l)“s)i3yAi£->2-  0~b\ 


80.  Reset  ^quNT  =  °* 

Step  81  is  performed  only  if  ^ivcx.''r  Nnn* 

81.  Go  to  step  85. 

82.  Go  to  step  86. 


I 
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83.  Calculate  as:  , 

Step  84  is  performed  only  if  50. 

84‘.  Go  to  step  86. 

85.  If  this  is  the  last  element  in  the  array,  continue  to  step 

86.  If  not,  return  to  step  50  with  i  *  i  +1. 

Steps  86-87  are  performed  only  if  intermediate  output  is  re¬ 
quested  by  the  user. 

Step  86  is  performed  for  each  element  in  the  array  satisfying 
the  criteria  I  /sfe  *-  -Ss 

86.  Write  (SfllOo  f 

87.  Write  0LOW)Q  and  ( *H,GH)0- 
Step  88  is  performed  i f  ■KKOyNy  *  l- 

88.  Calculate  /pJV  ‘  as: 


Step  89  is  performed  only  in  the  primary  zone. 

89.  Go  to  step  92. 

Step  90  is  performed  for  each  element  in  the  array  satisfying 
the  criteria  t  ■£.  c 

90.  Calculate  as: 

L  J Xj>; 

.  4*  ^  ” 


91. 


-f\*U 


92. 


Return 
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SUBROUTINE  ZMASSJDELX)  ZmA«oOOO 

REAL  MSTAROtMSTARU  ZmA*0010 

COHMON/DATA1/AJRC50) *RR(50) »XX<50) .FF(50) »BCONl (50) *8C0N2(50) *CH2 (ZMA«0020 
150) »ZP (70) *CUMDISC70) »VP,RHO(50> *BCON6(50) ,ATT(50) ♦PPP»FNOXP,Rl (50ZMA*0030 
2) »R6(50) f EK1 (50) *£K2 (50) *A2.A3»XL.CN,8ETA*S*PHIP»EXS»XEND. A1  ZMA*0040 

C0HhON/OUT3/IND1C.N0(50) *AVET*TAUBAR»RHCBAR.PHlBAR*:HAX»XDf  ZmA»o050 

)Fba«D»XU»LEN.TaUINT«TaUOIL»VELOC  ZMA»o060 

COMHON/OUT4/CON6NO(SO) tD£LMD{50) » AREAD»ASLOPE*DMFUOtSLOPE C50> ,TSLOZMA*o070 
1FE*nOP(50) »EKKD*DmFT*UUM(50) ♦0OM(50) ♦  FB(5Q) *DmFUD* AIRD»DMFFEDZmA«00B0 
2»RSUBA,slG»SIGZER*AVEMW,OMDDA(50) »DK0DH(50) *DMDDP (50) ♦DHOOPP C50) »FZMA*0090 
3PRIME(50)»NOEQXO»ANO»AQQ»OIFNO(50) »N0ZER0(50) »RD0T(50>  »E(50)  ZrtA«olOO 

C0HM0N/0UT5/MSTARD  «  HSTARU  ZMA*0 1 1 0 

DATA  Pl/3. 14159265/  ZMA*0l20 

ZMA*0130 

CALCULATE  AIR  FLOW  AND  C0MBU5T0R  AREA  ZMA*0l40 

ZMA»0l50 

NPRJNTsO  ZMA*o160 

IFCINDIC.NE.I)  GO  TO  10  ZMA*0l70 

ILOwD*C  ZMA*o180 

IhIgHDsSO  ZMA*0l90 

ILOwU*IlOWD  ZMA*o200 

IhIgMU*IHIGHD  ZMA*0210 

NN=35  ZMA*0220 

NNNaNN.l  ZmA*0230 

SDDm«0.0  ZMA*o240 

CALL  MlNTdtO.Otll.XXtAIR.AlRI)  ZHA*0250 

CALL  MlNT(ltXU,ll,XX.AlRtAlRU)  ZmA«0260 

CALL  «1NT11»X0#11.XX»AIR,AIR0)  ZmA«o270 

CALL  HINT(l»X0.11tXX»RR»RSUBX)  ZmA*o2BO 

AREaD  *  PI*RSUBX*RSUBX  ZMA*0290 

C****  ZmA*0300 

C***»  CALCULATE  FUEL  FLOW  RATES  AND  DISTRIBUTION  CHARACTERISTICS  Zma*o310 


(;•*** 

C**** 

C«*»* 
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C**** 

DHFFED  =  EKS*PHIP*AIRI/BETA 

IF(INDIC.NE.I)  FULOAD=OMFFEO*12. 0**3. 0*2. 54**3. 0/U54,*VP*PPP**2 
1F(INDIC.E0.2.AND,MSTARU.EQ.C.O)  WRITE (6*8500)  FuLOAD 
8500  F0RmAT(/////»1X*20HTHE  FUEL  LOADING  IS  »E12.5»28H  LB. /SEC. "CU. FT 
1ATH0.-ATM0.) 

DHFUO  s  DMFFEO* (1. 0-BETA) 

FEDF  *  OMFFED/454. 

AFR  »  AIR(11)/DMFFE0 
FEOF  *  FEOF*3600. 

IF(INOIC.EQ.I)  WRITE (6*9100)  FEDF 

IF(INUIC.EQ.I)  WRITE (6*9150)  AFR 

1F(INDIC.EQ.3)  DMFUD  *  0.0 

IF ( INDIC.EQ.3)  GO  TO  100 

DHFUD  *  DmFU0*(1.-A3*  (XD/XL)**A2) 

100  OHFT  *  OMFFED-DMFUO 
*  IF(INOIC.EQ.I)  MSTARU  ■  0.0 
IF'INOIC.NE.I)  MSTARU  *  MSTARO 
HSTaPD  *  OMFT*^IkO 
FEARD  «  DmFT/MSTARD 
IF(INUIC.EO.l)  SIGZER*S*F3ARD 
SIG*SlGZ£R* ( 1 . 0- (XO/XL) **Al ) 

IFUNDIC.EQ.3)  SIG  *  0.0 
IFUNDlc.EQ.3)  GO  TO  8000 
IF(S.EQ.O.O)  GO  To  500 

C**** 

C****  CALCULATE  DISTRIBUTION  CHARACTERISTICS  AND  Z 


ZmA*0320 

ZMA*0330 

,)ZMA*o340 

ZMA*0350 

.•Zma*0360 

ZMA*0370 

ZMA«o380 

ZmA*0390 

zma*oaoo 

ZMA*0410 

ZMA*0420 

ZHA*0430 

ZmA*0440 

ZmA*0450 

ZmA*0460 

ZmA*0470 

ZMA*0480 

ZmA*0490 

ZmA*o500 

ZMA«o510 

Zm.A*0520 

ZmA°0530 

ZmA*o540 

ZMA*0550 

ZMA*0560 

ZHA*0570 

ZMA*0580 


C**** 


ZMA*0590 
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ZPO  *  FBARD/SIG 
CALL  CALCBC(ZPD*C) 

c***®  calculate  boundaries  at  which  each  f  value  applies 

c***® 

500  CONTINUE 

IFdNDIC.NE.il  GO  TO  1500 
FB 11*  *  0.0 
DO  1000  I*E;NN 

1000  FB<I>*  0.5*«FF(UaFF(I-\)) 

FB  tNNN) =2.0*FF {NN) -FB (NN) 

GO  TO  3000 

C*®*® 

C***®  STORE  HASS  FLOWS  AT  PREVIOUS  STATION 

C***® 

1500  CONTINUE 

00  2000  I  — 1 « IMAX 
IF(INDIC.EO.l)  UDM(I1*  0*0 
IF (INDIC.NE.il  UDM(I)  ■  DOH(I) 

DELMD(I)»0.0 

2000  continue 

IFdMAX.EQ.NN)  GO  TO  2200 
IN*IHAX®1 
DO  2100  I=IN»NN 
OELHO (I ) *o»o 
2100  UDH(I)  *  o.O 
2200  CONTINUE 
C***® 

c**»*  calculate  ihax 

c®*** 

3000  CONTINUE 
IMAX'SO 

C®*®* 

c*®**  SPECIAL  CASE  s*0.0  IN  primary  zone 

c®*«® 

IF(S. £0.0.0. ANDeINDlC.EQ.il  GO  TO  2300 
GO  TO  2500 

2300  DO  2*00  1=1 » IHAX 
ODM(I) =0.0 
DELMD(I)»0.0 
NOZER0(I)=l 

IF (FB ( I ) .LT.FBaRDI  GO  TO  2*00 
IMAX*I-1 
DDH(I-11*HSTARD 
DELMD(I-1)*MSTaRD 
NOZERO(I-11«0 
GO  -TO  9000 
2400  CONTINUE 
2500  CONTINUE 
KOUNTcO 
KKOUNT*0 

DO  5000  I  =?.NNN 
IFd.EQ.NNNl  lMAXaNNN-1 
IFd.EQ.NNNl  GO  TO  4880 
IF<FB(I1 .LT. {2,0*F8ARD1)  GO  TO  4000 
DUMMY  »  FBdl 
F8(I1  *  2,0*FBARD 
IMAX  *  1-1 
KKOUNT=i 
4000  CONTINUE 


ZMA®0600 

ZMA®p610 

Z«A*t)620 

ZMA®0630 

ZMA®0640 

ZMA®0650 

ZMA®o66C 

ZmA®0670 

ZmA®06B0 

ZMA*o690 

ZMA«0700 

ZmA*0710 

ZMA«0720 

ZMA®0730 

ZMA*0740 

ZMA*o750 

ZMA*0760 

ZMA®0770 

ZmA®0780 

ZmA®0/90 

ZmA®0800 

ZmA®0810 

ZHA®0820 

ZmA°0830 

zma^osao 

ZMA®0850 

ZmA®0860 

ZMA*0870 

ZmA«0880 

ZMA®0S90 

ZhA®o90D 

ZMA*0910 

ZMA®0920 

ZMA®0930 

ZhA®09^0 

ZHA®0950 

ZMA®0960 

7.  MA®0970 

ZmA*0980 

ZMA*0990 

ZMA®1000 

ZMA®1010 

Z,SA®1  020 

ZMA®1 030 

ZMA®1040 

ZMA®1050 

ZMa®1060 

ZMA®1070 

ZhA°1090 

ZmA®1 090 

Zma®! loO 

ZmA«1110 

Zha®1 120 

Zma®1 130 

ZhA®1 140 

ZMA®1 150 

zka®i lfio 

Zm4®I 170 
ZHA^llBO 
ZMS*ll90 
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C*»** 

c***«  CALCULATE  the  element  MASSES 

c***» 

A  =  (Kem-FBARDl/SIG 
3  =•  (FBU-1)-FBARD)/SIG 

IFlA.GE.O.O)  CALL  MINT(1.a»70*ZP»CUMDIS»P1) 
IF(A.GE.O.O)  GO  TO  4500 
A  *  *•  A 

CALL  MINT ll* At70*ZP»CUMDlStPl) 

Pi  =  1.0-PI 

4500  IF'.B.GE.O.O)  CALL  MlNT(l*B»70tZP»CUMDIS»P2) 
IFCB.GE.O.O)  GO  TO  4800 

CALL  MinTU»B»70»ZP»CUMDIS*P2> 

P2  »  1.0-P2 

4800  DDM(I-l)  •  C*<P1-P2) 

IF(DDM(l) .GT.O.O)  IL0WD»1 
1F(ILOWD.6T.O)  GO  TO  485© 

IF(DDK(I-2) .EG. 0.0. AND. ODM(I-l). GT.O.O)  IL0WD*I-1 
4850  1F(D0M(I-1), GT.O.O)  KOUNTal 

lF(OUMa-l).EQ.O.O-.AND.KOUNT.EQ.l>  GO  TO  4900 
IF C  U-l)  .EQ.IMAX)  GO  TO  4875 
S0DM=SD0M-*DDM{I-1) 

GO  TO  4950 
4875  A0DM=D0M(I-1) 

4880  ODM(I-1)=MSTARO-SOOM 
DELM0(I-1)*D0M(I-1> 

IHlGHD=l-l 
GO  TO  4925 

4900  DOM 1 1-2) =MSTARD-SDDM*DDM < 1-2) 

DELM0(I-2)  a  DDMU-2) 

DELMD(I-1)«0,0 

IHlGHUal-2 

IHAx=I-2 

IFtKKOUNT.EQ.l)  FB IIMAX*2>*0UMMY 
KKOuNTaO 
4925  CONTINUE 

IF ( IMAX.GT »NNN)  GO  TO  5000 
GO  TO  6000 

4950  DELMD(I-l)*ODMa-l) 

IFUMAX.LT.50)  GO  TO  6000 
5000  CONTINUE 
6000  CONTINUE 

IFtNPRlNT.EQ.l)  WRITE (6»9999) (DOM(I) ,I*1»IMAX) 
IF(NPHInT.EQ.I)  WRITE (6*9998)  ILOWQ* IHIGHD 
IF(KKOUNT.EQ.l)  FBUMAX*!)  *DUMHY 


GO  TO  5000 


C**»* 

c**»* 

c***» 


CALCULATE  slopes 


IF(INDIC.EG.I)  GO  TO  9000 
DO  7000  I  *1 ♦ IMAX 
SLOPE (I)  «  (ODM(I)-UDM(I) )/DELX 
7000  CONTINUE 
8000  CONTINUE 

ASLOPE  =  <AIRn-AlRU)/DELX 
TSLOPE  s  {MSTARD-KSTARU)/0ELX 

9100  FOMmAT (/////, i0x»58HTHE  COMPUTED  TOTAL  MASS  OF  FUEL  FED 
10MBUSTOR  IS  .E12.5.BH  LB. /HR.///) 

91S0  FORMAT a0X*42HTHE  COMPUTED  OVERALL  AIR-TO-FUEL  RATIO  IS 
1) 


ZmA#1200 
ZHA*i2lO 
ZMA*1220 
ZmA*1 230 
ZMA*1240 
Zma*1 230 
ZMA*1260 
ZMA*1270 
Zm.A»1280 
ZmA*1290 
ZMA«1300 
ZMA*1310 
ZmA*1320 
ZmA»1330 
ZmA°1 340 
ZmA*1350 
ZMA*1360 
ZHA*1370 
Zma*]380 
ZmA»1390 
ZMA»1400 
ZMA*1410 
ZMA*1420 
ZMA*1430 
ZMA«1440 
ZmA*1450 
ZMA*1 460 
ZmA»1470 
ZMA«1480 
ZMA*1490 
ZMA*1500 
ZMA*1510 
ZmA*i520 
ZmA*1530 
ZmA«1540 
ZmA«1550 
ZhA*1560 
ZmA6\570 
ZmA*1580 
ZmA*1590 
ZmA*1600 
ZMA*1610 
ZmA«1620 
ZMA*i630 
ZMA*1640 
ZmA«1650 
ZmA#1 660 
ZmA»1670 
ZmA*1680 
ZMA*1690 
ZMA*1700 
ZMA«1710 
ZHA*1720 
ZmA*1730 
ZmA«1740 
ZmA°1750 
INTO  THE  CZmA«1760 
ZmA*1770 
»El2.5t///ZMA*l7B0 
ZMA*1790 


9998  F0«hAT(5X,20I5//J 

9999  FORMAT (10X»10E10. 3/ 
9000  RETURN 

END 


ZmA*i8G0 
Zka»1810 
ZMA»162C 
ZMA* J830 
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APPENDIX  XV  -  SUBROUTINE  PRINTS 

The  function  of  Subroutine  PRINTS  is  to  provide  the  written 
output  of  the  calculated  results  of  the  program. 

Subroutine  PRINTS  is  .called  by  Subroutines  PR  I  MR  Y-,  2  INTER, 
and  DILUTE;  it  does  not  call  any  other  subroutine.  Subroutine  PRINTS 
does  not  require  external  input  and  does  provide  external  output. 
Internal  input  is  transmitted  through  COMMON.  There  is  no  internal 
output.  The  internal  input  consists  of; 


AVCH2D 

AVCH2F 

AVCH2P  AVECOD 

AVECOF 

AVECOP 

AVECSD 

AVECSF  AVECSP 

AVENOD 

AVENOF 

AVENOP 

AVET  INDIC 

PHI  BAR 

RHOBAR 

TAU8AR 

XD 

Additional 

Fortran  Nomenclature 

The  following,  table  gives  the  Fortran  .nomenclature  for  t  -ose 

symbols  in 

Subroutine  PRINTS  which  are  not  included  in  COMMON. 

Fortran 

Symbol 

Symbol 

Description 

Units 

AVCH2 

0*2*1 

Equilibrium  concentration  of 
unburned  hydrocarbons  exclusive 

of  C,  \  and  CO  at  X  . 

(s)  D 

Ib/ft"5 

AVECO 

ra*] 

Equilibrium  concentration  of  CO 

atxD 

lb/ft3 

AVECS 

LVI 

Equilibrium  concentration  of  C(s\ 
atXD 

lb/ft3 

AVENO 

[  NO*] 

Concentration  of  NO  at  X.p 

lb/ft3 

aveno2 

1>21 

Equivalent  concentration  of  N02 

lb/1000  lb 

atXD 

fuel  burned 

AVETF 

T 

Temperature  at  X.^ 

deq  F 

DENOM 

Constant 

ft3  -  qm 

Cm3  -  It 

IPRINT 

Indicator 

I  PRINT  -  0 

if  intermediate  zone  heading  is 
to  printed 
IPRINT  -  1 
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Fortran 


Symbol 

Symbol 

Description 

Uni  ts 

if  intermediate  zone  heading  is  not 
to  be  printed 

IPRINT  -  2 

if  dilution  zone  heading  is  not  to 
be  printed 

RHOBA 

Mean  density  of  combustion  products 
-■  XD 

lb/f t^ 

TTUBAR 

Mean  residence  time  at  X^ 

msecs 

XOUT 

*D 

Axial  position  downstream  in  the 
combustor 

in 

Analysis  Procedure 

The  step-by-step  procedure  of  Subroutine  PRINTS  is  given  below. 
The  Fortran  listing  of  the  subroutine  is  presented  at  the  conclusion 
of  the  step-by-step  procedure. 

1.  Convert  Xp  from  cm  to  in. 

2.  Convert ^  from  secs  to  msecs. 

3-  Convert  NO,  CO,  C(s},  and  CH2  concentrations  from  gm/cc 
to  lb/ft^. 

4.  Convert  NO  concentration  at  X.^  to  the  equivalent  NO2 
concentration. 

5-  Convert  ^  from  gm/cc  to  lb/ft^. 

6.  Convert  T  from  deg  K  to  deg  F. 

7*  If  this  is  the  primary  zone,  write  the  primary  zone  heading 
and  output.  Go  to  step  12.  If  it  is  not  the  primary  zone, 
go  to  step  8. 

8.  If  this  is  the  intermediate  zone  and  the  first  written 
output  for  the  zone,  write  the  heading  for  the  intermediate 
zone,  if  not,  go  to  step  9* 

9.  If  this  :s  the  intermediate  zone,  write  the  output  atXp. 

Go  to  step  12.  If  it  is  not  the  intermediate  zone,  go  to 
step  10. 

10.  If  this  is  the  dilution  zone  and  the  first  written  output 
in  the  zone,  write  the  heading  for  the  dilution  zone.  If 
not,  go  to  step  11. 
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11.  If  this  is  the  dilution  zone,  write  the  output  for  the 
dilution  ;tone  at  Xp.  Go  to  step  12. 

12.  Return. 
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SUBROUTINE  PRINTS  PRT*oQOO 

REAL  NO  PRT*OOlO 

COHmON/oUT1/AVECS6»AVECOG» AVCH26t AvECSPt AVECOP* AVCH2P*AVECS0» AVECOPRT*0020 
ID.AVCH2D,AVECSF*AVEC0F»AVCH2F  PRT«0030 

C0MM0N/0UT2/AVEN0G. AVENOD. AV£nOP» AvEnOF. AVENFU.RRO. I LAST  PRT«0040 

COHMON/oUT3/INDICtNOl50) ,aVET»TAUBAR»RHOBAR.PHIBAR»IMAX.XD,  PRT*o050 

1F8AR0»XU»LEN»TaUINT»TAv;diL»VEL0C  PrT*0060 

COMMON/oUT  4/C0NGN0 ( 50 ) »OELMD{50)*AREADtASLOPEtOMFUO»SLOPE(50)»TSLOPRT*0070 
1PE.NOP(50) »EKKD»OHFT*UDM(50) tDDMlSo) »  FB<50) ,DMFUD,AIRD,DMFF£DPRT*o080 

2*RSUBX( siGfSIGZER* AVEHMf DHD0A(50) ,DMDDM(50) »DMDDP(50) ,DMDDPP(50) »F?RT«0090 
3PRIHE(50) .NOEQXD»ANO,AUQ,DlFNO(SC) ,N0ZER0(50) ,RD0T(50) *E<50)  PRT«olOO 

NPRlNT=o  PRT«ollO 

IFtINDic.EQ.l)  IPRINT«0  PRT*0l20 

X0UT=Xd/2.54  PRT*ol30 

ttubar  =  TAU8AR*1000.  prt*oKo 

DENOM=454iO*3.532E-’05  PRT«0l50 

AVENO=AVENOD/DENOM  PRT*Gl60 

AVECO=AVECOD/OENOM  PRT*0l70 

AVEcS=AVECSD/LfENOM  PRT*ol80 

AVCh2=AVCH2D/DENOM  PRT*Ol90 

AVEN02  =  AVEN0F*46. 0/30.0  PRT*o200 

RHO0ASRHOBAR/DENOM  PRT*0210 

AVETF=( (AVET-273. 161*1. 8) *32.0  PRT*0220 

GO  TO  {1000*2000*30001 »INDIC  PRT«q23C 

1000  CONTINUE  PRT*0240 

kRITE(6» 10101  PRT*o250 

1010  FORMAT t 1H1>  PRT*0260 

WRITE (6» 1020)  PRT*o270 

1020  FORMAT J48h  THIS  IS  THE  MAIN  PRINTOUT  FOR  THE  PRIMARY  ZONE  /////)  PRT*o280 
GO  TO  4000  PRT*0290 

2000  IFtlPRlNT.EQ.l)  GO  TO  5500  PRT*0300 

WRITE  tfe» loioi  PRT*o3l0 

WRITEi6,2020)  PRT*0320 

2020  FORhaT (53h  THIS  IS  THE  MAIN  PRINTOUT  FOR  THE  INTERMEDIATE  ZONE  PRT*0330 
1/////)  PRT*0340 

IPRINT=1  PrT*0350 

GO  TO  4000  PRT*c360 

3000  iFtlPRlNT.EQ.Z)  GO  TO  5500  PRT*o370 

WRITE(6.1o10)  PRT*0380 

WP*TEt6-3020)  PRT«o390 

3020  format <49h  This  is  the  main  printout  for  the  dilution  zone  /////)  prt«o4oo 
IPRINT=2  PRT«0410 

4000  WRITE t6»5000>  PRT*0420 

5000  F0RMAT{1X,6HXCIN.) ,lX,3HPHl.3X.lHTt6X,3HRH0,3X,3HTAU,6X12HN0,9X,3HPRT«0430 
1N02,  9X*4hC  tS) t  6X»4HC  tS) »  8X.2HC0,  9X»2HC0*  8X»3HCH2.  8X*3HCH2  1  ?RT*0440 
WRITE(6*5l00)  PRT«o450 

5100  FORMAT (8X,4hAVE.* 1X.5HDEG  F.3X.4HAVE. .2X.4HAVE. *5X»3HPPM.6X, 7HL8S  PRT»o460 
lPER»7Xt3HPPMt5X»7HLBS  PER»7X,3hPPM,5X,7hLBS  PER*  6X»3hPPM*7X,7hl8SPRT*0470 
2  PER)  PRT*0480 

WRITE i6.5200)  PRT«0490 

5200  FORMAT (l9X.7HLB/CUFT,lXt4HMSEC,4X,5H{V0L) .5X.7H1000  LB.6X.5H (VOL) ,PRT«0500 
14X.7H1000  L8.6X*5H(V0L) *4X*7H1000  L8.5X.5H ( VOLl *4X»7H1000  LB)  ?RT«o5lO 
WRITE16.5300)  PRT*0520 

5300  FORMAT {43X.1JHFUEL  BURNED, 11X.11HFUEL  BURNEO, 1 IX, HHFUEL  BURNED, llPR7*05^0 
1X.11HFUEL  BURNED)  PRT«0540 

5500  WRITE (6, 6000) XOUT.PHIBAR, A VETF.RHOBA, TTUBAR, AVEN0P.AVEN02.AVECSP*  PRT*05S0 
1 AVECSF  ,  AVECOP  ,  AVEC.Of  ,  AVCH2P  »  AVCH2F  PRT«05&0 

6000  FORMAT {lX,F5.2,lX*F4.2»lX.F5.0»lX»F6.4»lX»F6»2»lXt8{El0.3»lX)//l  PRT*o570 
IF(nPRInT.EQ.I)  WRITEC6, 9999){  nO{I),I«1*IMAX)  PRT°0580 

9999  FORMAT aox,4H  **»8£i2.4)  PRT*o590 


S>RT*0&00 

PRT*6610 


retukn 
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APPENDIX  XVI  -  HETHOD  OF  CALCULATION  OF  AIR  DISTRIBUTION  CHARACTERISTICS 

Air  enters  the  combustor  liner  at  discrete  positions  over  the 
whole  length  of  the  liner.  The  bulk  of  such  flow  normally  enters 
perpendicular  to  the  direction  of  the  mainstream  product  flew  and 
has  then  to  be  deflected  ants  entrained  before  it  can  mix  with  the 
combust-ion  products.  This  action  requires  a  finite  time  (i.e. ,  dis¬ 
tance)  to  occur,  and  its  effect  upon  the  nitric  oxide  formation  proc¬ 
ess  has  to  be  corsiSeted.  A  method  has  been  developed,  therefore, 
to  take  account  of  this  effect.  The  method  is  consistent  with  the 
mixing  assumptions  made  in  the  flow  model  described  in  this  report  ; 
it  has  been  applied  to  ail  combustors  considered  in  this  report  and 
is  described  below. 


The  flow  behavior  at  each  port  shown  in  the  figure  above  is 
assumed  to  behave  as  follows: 

Port  1  All  air  entering  at  this  posit:on  is  assumed  to  mix 
with  the  products  in  the  primary  zone. 

Port  2  Some  fraction  of  the  air,  f,  mixes  with  the  primary 
zone  and  the  remainder  is  entrained  according  to  the 
law  described  for  port  4. 
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Port  3  Cooling  air  mixes  according  to  the  relationship 
Mx  =  M3  (Distance  from  port  3  to  X  divided 
fay  uistance  from  port  3  to 
and  that  part  which  mixes  before  the  primary  zone 
exit  (X  *  0),  is  assumed  to  burn  in  the  primary  zone. 

Port  4 

and  5  Both  ccoling  and  combustion  air  mix  according  to  the 
relationship  shown  above, 

i.e.,  MX  *  M4((X-X/*)/(XL-X4))0’5 

Port  6 

and  7  This  air  enters  the  dilution  zone  so  it  is  assumed 
that  instantaneous  mixing  occurs  (see  Section  2.5). 

All  these  independent  mass  flows  are  then  sur.med  at  a  particular 
position  along  the  combustor  to  give  the  total  airflow  contained 
with  the  combustion  products  at  that  pot  it.  For  example: 

air  burning  in  the  primary  zone  MpZ  i's  given  by, 

«p2  “  «C  «  ”l  +  fM2  +  «3 

x  *  0 

air  at  position  X  (0<X<Xj_) 

Mx  =  (1-f)  M2  +  M3x  +  M4x  +  M5x  +  Mpz 

air  at  position  X,  (X7^-X^.Xg) 

Mx  =  ^Mn  +  M7 

This  method  was  applied  to  combustors  A  and  B  studied  in  this 
report  and  in  each  case  the  value  of  f,  the  fraction  of  air  entering 
the  primary  zone  from  the  first  row  of  air  ports,  was  assumed  to 
equal  one  third.  For  Combustor  A  this  value  corresponded  to  the 
value  recommended  by  the  designers,  but  in  the  case  of  Combustor  B, 
the  value  was  estimated  based  on  the  design  features.  Errors  in  the 
predictions  of  nitric  oxide  emission  levels  from  this  latter  estimate 
can  be  expected  to  be  negligible  as  the  total  airflow  through  port  2 
represents  less  than  two  per  cent  of  the  total  airflow. 


